


MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE (08) 381 8542 



[ 



ISSUE 3 








FEBRUARY I960 




PRICE 


*2.5Q 


CONTENTS 




JEfiGJE^ 






EDITORIAL 




2 




NEXT MONTH' S ISSUE 




3 




ASSEMBLY LANGUAGE PROGRAMMING 




5 




LEOEL 1 1NKEY SIMULATOR 




10 




READER' S REQUESTS 




V? 




BETTER BYTES 




13 




DEF-USR-1NG THE GAME OF LIFE 




13 




HANGMAN 


L1/4K 


14 




AMAZIN 


L2/MK 


15 




BIORYTHM 


L2/4K 


16 




FILES 


L2/16K 


17 




SET 2 


L2^16K 


20 




BASIC MONITOR * PART 1 


L2^16K 


21 




MONITOR IN BASIC REVISITED 


L2/16K 


23 




MINI MACHINE LANGUAGE LOADER 


L2/4K 


24 




LIGHT PEN 




25 




LETTERS TO THE EDITOR 




29 




MICRO-80 is registered for posting as 


a pub) i cat ton - 


CATEGORY B. 


Printed by: The Shouel and BuM Printers, 






312 A Unley Road, Hyde Park, SA 5061 








AM enquiries should be sent to : - 








MICRO-80, P.O. BOX 213, GOODWOOD SA 5034 






'Phone*. C0B) 3S1 8542 









i 



MICRO-80 



\ 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE (08) 3818542 



PAGE 1 



** ABOUT MICRO -80 ** 

MICRO-80 is the first Australian monthly magazine devoted entirely to the 
TRS-80 microcomputer. It is available by subscription S24.00 for 12 months or 
by mail order at $2.50 per copy. A cassette containing aV I the proarams in 
each month's issue is available for an additional *3.50 or a combined annual 
subscription to both magazine and cassette, is available for $60.00. Special 

bulk purchase rates ore also available to computer shops etetc. Please use 
the form in this issue to order your copy or subscription. 

The purpose of MICRO-80 is to publ ish software and other information to help 
you get the most from your TRS-80 computer and its peripherals. MICRO-80 is 

in no way connected with the TANDY organisation. 

*+ WE WILL BUY YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay 
royalties. An application form containing full details of how you can use 
your TRS-80 to earn some extra income is included in every issue. 

+* CONTENT ** 

Each month we publ ish at least one appl ications program in Level 1 BASIC, one 
in Level Z BASIC and one in DISK BASIC (or Disk compat ibl e Level 2). We aslo 
publish Ut i I ity programs in Level 2 BASIC and Machine language. At least 
every second issue has an article on hardware modifications or a 
constructional article for useful peripherals. In addition, we run articles 
on programming techniques both in Assembly language and BASIC, we print news 
from TRS-80 Users Clubs, letters to the Editor and new product reviews. 

** ADVERTISING ** 

We accept camera ready copy for display advertising at the following rates: 

- FULL PAGE (19cm wide x 24cm high) *L20 

- L/-2 PAGE (19cm wide x 14cm high) S 60 

- 1^4 PAGE (19cm wide x 7 cm high) % 30 

Classified ads ara S3. 00 for up to 50 words. Ads must be submitted by the 
LSth of each month in order to appear in the ■following month's issue. A 
Company Order or payment must be included with the advert. 

+* TRS-80 USERS CLUB NEWS ** 

We ara prepared to print news of the activities of TRS-80 Users Clubs up to a 

maximum of 200 words per Club per month, space permitting. Copy must be TYPED 

with DOUBLE LINE SPACING and reach us NO LATER than the 15th of each month in 
order to appear in the following month's issue. 

** COPYRIGHT #* 

All the material published in this magazine is under copyright. That means 

that you must not copy it, except for your own use. This appl ies to 

photocopying the magazine itself or making copies of programs on tape or 
disk. 
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***** EDITORIAL ***** 



We are del ightQd to announce that Peter Hartley and Eddy Paay, two of our most 
regular contributors, hay? joined us js Associate Editors. Eddy wil I 
concentrate on Machine Language and Disk BASIC programs whilst Peter wil 1 
concentrate on Level i and Leuel 2 programs. Both will help with hardware 
articles, answering readers letters etc.. We are very happy that Peter and 
Eddy haue joined us not only because they are nice blokes and very competent 
but also because it wil 1 help us to achieve some o-f our objectives which, 
until now, we have not had the time to do. In particular, we want to qiue 
much more explanation about the inner workings of the programs we pub I ish. 
This should help you in writing your own programs and make the magazine even 
more useful . Secondly, we should now be able to ensure that the programs 
written by our own staff are much more thoroughly debugged. Those o-f you who 
tried tc use MONITOR in BASIC, pub I ished last month, wil ! welcome that piece 
of news' Finally, a commercial, both Eddy and Peter are very experienced 
TRS-80 programmers and both are wil I ing to do contract programming at very 
reasonable rates. So, if you want assistance in developing a program. you 
could do much worse than to get in touch unth one or the other of them. (Use 
M1CR0-88' s address initial! y ) . 

Ax the suggestion of seueral of our readers, we have introduced a new feature 
this month cal led - Reader' s Requests. It is a I ist of articles, information, 
reueiws, programs etc., which you, our readers, have written in asking us to 
include in future issues. Why not send in your own requests? If you are 
thinking of writing a program or article -for us to publish look at this list 
first and see what is needed. Incidentally, when you do write in for any 
reason, why not tell us what equipment you haue (.i.e. L1/4K, LZ/16K etc.) that 
will help us assess the type of programs we should be publishing, too. 

** ABOUT EDUCATIONAL PROGRAMS ** 

We have had several educational programs submitted to us for pub) ication. 

Unfortunately, we haue had to reject them all so far. It only seems -fair for 

us to state our pol icy in this area, so that al I our readers know where we 

stand . 

Firstly, we believe the role of microcomputers as educational tools is a uast 

and important one as yet largely unfulfilled. However, there is a number of 

important points to consider: 

- most young children haue neuer had an encounter with a computer 

and, if their first one is not pleasant, it could condition their future 
attitudes to their long term detriment in a world where computers wil I 
become more and more common. 



One of the most common means of learning is by trial and error. The 

role of the teacher is to assist the student to learn from mistakes as 

we I 1 as from success. Tel I ing a student that he is a "DUMMY" because 

he gets a problem wrong, must violate just about every rule in the teacher's 

book. Wq would go so -far as to say that a program which simply rejects 
wrong answers is not a teaching program at al I but simply a grading or 
testing program. One that abuses the student for a wrong answer 
is totally unacceptable. 

If you want to develop a REAL teaching program and you are net a teacher 
yourself, why not -find someone who is, to work alongside you. If there 
is a teacher reading this column, perhaps he or she would I ike to write 
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an article explaining the fundamentals of developing good teaching programs 

- fiboue o\ I , teaching programs should be interesting. In fact, one of 
the tests we carried out on the programs submitted for consideration, 
was tu try them out on the Associate Editorial offspring. 
The "wrong Dummy* type of programs held their attention for only a few 
minutes. Whereas, Hangman, particularly when they were entering the 
words themsel yes. held their attention for hours. This is a teat ue shall 
continue to use in assessing the worth of educational programs for 
the young. 

Finally, don't get us wrong, we wou Id dearly loue to be involved in the 
publ ication of good educational programs. But they must be first rate and 
really educational before we will publish them. 

** REOUT OUR LIGHT PEN ** 

Last month, we told you that our prototype light pen was proving unreliable 
and that we would delay publishing it until we had it really sorted. That 
disappointed several of our readers. There are also several commercial pens 
being sold which work on the same principle as our prototype. Peter Hartley 
has tried at least one of these and made an improvement on it, so we asked him 
to write a constructional article describing how you can make your own I i ght 
pen for well under *5. 30. We will still develop an improved design, -for 
pub! ication in a few months time, but for those who con' t wait, you will find 
Peter's Simple Light Pen article in this issue. The secret to this type of 
pen is the software, which is where MICRO-83 can really help you and, from 
time to time, we wil 1 publ ish programs to use with your 1 ight pen. 

** THE ftNBLOGUE CLOCK. ** 

Last month we promised you an analogue clftck program, ie. Gne that has a dial 

like a normal clock. The special feature of this c I oc 1 * is that it uses this 

month's SET 2 program to redraw the hands uery rapidly. This month has turned 

into a real bumper issue and we ran out of space, so something had to be held 

over and that's the analogue clock. Look, for it next month, without fail. 

-00000- 



***** NEXT MONTH' S ISSUE ***** 
The March issue of M1CRO-80 will contain at least the following programs: 



LERRN1NG NIM (LI ) 



The well known match stick game but, 
in one mode, the computer actual ly learns 
how to improve its game. This is a 
demonstration of a simple form of 
artificial intel I igence. 



LUNRR LflMDER (LI) 



If Rpo II o had been as difficult to 
control as this landing module, there 
would be even more craters on the moon! 
You fly bl ind using the instrument panel 
on the screen to guide you to almost 
certain destruction! 
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RICOCHET (LZ) 



For a) I those Level 2 owners who thought 
converting a LI program to run in L2 was a 
piece of cake. This is the same game 
described last month but this time it 
mill run on a L2/4K machine. 



INURBERS (L2) 



TWO RRNDOM NUMBER f.L2^ 
GENERRTOR TESTS 



Invaders is reputedly the most popular of the 
electronic arcade games. Now y'^u can save 
20cents each time you run it on your 
TRS-80. Get the invaders with you^ laser 
cannon be-fore they get you. 

These programs will enable you to test the 
randomness of your TRS-80' s random 
generator. More than that though , 
it demonstrates how to draw bar -charts 
in BRSIC. 



RNRLOGUE CLOCK (L2) 



BMON - Part 2 
in/c I anguage 



This clock program has been held oyer 
from the February issue due to Sack of 
space. It features a uery real ist ic 
clock face and the hands are redrawn very 
rapidly using the SET 2 command 
publ ished this month. 

Part 2 of this great util ity program. 
Eddy hasn't told us yet which commands 
you wi I I get in Part 2 but you know they 
will be usef u I . 



RBBREUIRTED RBBREUI RT IONS 
IN LEUEL 1 



DOUBLE THE STORRGE CftPRCITY 
OF YOUR DISKS. 



Charl le Bartlett explains how to squeeze 
a quart into a pint pet on Level 1 
machines using some abbreviations 
that even Tandy didn t know "they had. 

If you have a Tandy Eisk drive, you 
aco. probably only using one side of 
each disk. This article gives ycu full 
instructions and a template to enable you 
to use both sides of the disk. No 
modifications are required to the disk 
drives. This article alone will pay 
for your niCR0-B@ subscription several 
t i me s over! 



March' s i ssue 
Programm ing . 



mill also contain the next installment on Rssembly Language 



-00000- 
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***** ASSEMBLY LANGUAGE PROGRAMMING 



Part 2 ***** 



Last month, we described the memory mapping of the TRS-80 and the uarious 
types o-f memory used. We also introduced Hexadecimal arithmetic and the ASCII 
code for representing al phanwmer ic symbols. This month we wil I look inside 
the Z 80 Microprocessor itself to see how it is arranged (its architecture," 
and how to use it tits addressing modes J. As you start to get into assembly 
language programming yourself, you will find it useful to have at least one 
reference book which gives you a I ist of al I the Z 88 instructions, addressing 
modes etc. Tandy se I Is a book called "TRS-89 Assemby Language Programming". 
It is only $3.95 and is good value. Because it has been written for the 
TRS-80, it is also very relevant to your computer. We recommend that you buy 
this boGk to augment the information in this series of articles. 

** Z 80 Architecture ** 

The key to the functioning of the Z 80 CPU is its register set. A register is 
real ly a memory location in the CPU. It is similar to the memory in a "memory 
calculator". The Z 80 has 22 registers, 17 of which contain 8 bits. 4 contain 
LB bits and 1 contains 7 bits. These are shown d isgrammat ica II y below: - 
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The wide block in the diagram contains the IB, 8-bit, general purpose 
registers. These are subdivided into two blocks of eight registers each. The 
registers A, F, B, C, D, E, H and L ore known as the MAIN register set whilst 
ft' , F' , E' , C , D' , Z' , H' and L' are called the ALTERNATIVE register set or 
sometimes, the primed registers, since the symbol ' is pronounced "prime*. 
The main register set is the one most commonly used, the alternative register 
set can only be accessed by two instructions, which exchange the contents of 
the main set with the alternative set. Only one of these two sets of 
registers can be active at any one time. It is not necessary to use the 
alternative set at al I indeed, Level 2 BASIC never uses the alternative set 
although Disk BASIC does. Of the 16 general purpose registers, A and F are 
the two most important. A is sometimes called the "ACCUMULATOR" and many 
operations carried out by the Z 80 must use the contents of the A register as 
one of the operands with the other operand coming from memory, or one of the 
other registers, at the programmers discretion. F is usually called the FLFtG 
register because the individual bits in it are used by the Z 80 to indicate 
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the status of the CPU before and a-ftsr operations. F is neuer used by the 
programmer in computations. Instead, it is automatically set by the results 
of computations in the other registers. The remaining general purpose 
registers can be used either as 8-bit registers or as 16-bit register pairs, 
in which case B is always paired with C, D with E and H with L to give BC, DE 
and HL . 

The remaining 8~bit register is the Interrupt register 1. The Z 80 has a uery 
sophisticated interrupt handling capability which enables external devices tc 
take over control of the computer when they need to. For example, you might 
want to use your TRS-80 as a burglar alarm as we I i as the computer. In that 
case, you could arrange the window and door switches to connect to the 
computer through an input /output port so that, when someone opens a window, a 
bit in the port is set, the computer senses this and operates an alarm. t;ia 
another port. That would be fine, but if the TRS-80 spent all its time 
sitting looking at the switch port waiting for the occasional burglar you 
would ha-e a pretty expensive relay. The way to handle this situation is to 
use the Z 83' s interrupt hand I ing capabil ity. The operation of one of the 
burglar alarm switches would be sensed by one of the interrupt, I ines MMI 
(non-maskable interrupt - pin 17 on the Z 80) or INT (maskable interrupt - pin 
16 on the Z 80). When an interrupt is received, + he computer finishes its 
current instruction then proceeds to deal with the interrupt (unless the 
acceptance of a maskable interrupt on pin IS has been inhibited by the 
programmer). It does this by jumping to a location in memory where a nrogram 
is stored that will handle the interrupting deoice (in the case of the burglar 
alarm, the program will presumably ring a bell through an output port" 1 , Flter 
deal ing with the interrupt, the Z 80 returns to the point in the program where 
it left off and proceeds as if nothing had happened. The I register is used 
to tell the Z BS where abouts in memory it will find the interrupt hand! ing 
program (for mode 2., maskable interrupts only). The whole subject of 
interrupt hand I ing on the Z 80 is a fairly complex one and might be the 
subject of a separate article later on. 

The 7-bit register is the P. register. It is used to constantly refresh 
dynamic RAM' s of the sort used in the TR3-80. These ROM' s need to be 
refreshed by reading their contents e'jery 2 milliseconds. The R register does 
this automatically during a time when the Z 80 is not accessing memory. The R 
register is not used for writing programs for the Z 80, 

Of the four IB-bit registers, IX and IY are INDEX registers. They ar^ used in 
the indexed addressing mode. This is a powerful mode of addressing 
particularly when tables of data ore stored in memory. Indexed addressing 
oj i 1 I be described in detail in a later installment. 



The other two 16-bit registers are SP , the STfiCK POINTER and PC the PROGRRM 
COUNTER. SP must always point to a free areo in RRM which can be used for 
storage of ualues whilst the computer is executing a program. Trouble occurs 
if you let the SP get away from you so that it points to the program ar&a or 
ROM cr , if your program overwrites the stack. The program counter PC controls 
the order in which instructions aro executed. While one instruction is being 
executed, PC always contains the address of the next instruction. This is 
done automatical ly by the Z 80 which adds the number of bytes in the 
instruction it has just FETCHED to the contents of the PC. When a jump is 
executed, the new memory location for the jump is forced into the PC so the PC 
causes the Z 80 to go to that new location. 
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** DRTR TRRNSFERS ** 

The Z 80 terminology for transferring data backwards and forwards between c 
memory location and a register in the CPU is simpler than in most other 
computers which use terms I ike LORD, STORE and MOUE depending on where the 
data originates from ond where it ends up. Z 80 programmers use only one term 
for transferring data LOftD , which is abbreviated into mnemonic form as LD. 

The direction of the data transfer is determined by the order in which the 
operands appear, whilst the nature of the data depends on the presence or 
absence of brackets. 

Eg. LD ft, (45) 
means:- load the contents of memory address 45 into register R. 
but LD L45), R 

means:- load memory address 45 with the contents of register ft. 

The brackets around 45 indicate that 45 is the address of a memory location. 
If there were no brackets viz. : 

LD ft, 45 
then the ualue 45 mould be loaded into the R register. 

The rule concerning brackets is a fundamental one In describing the Z B0 
instruction set and programming in Rssembly Language. Whenever brackets 
enclose an operand it means that that operand specifies an address, not. a data 
value. This also appl ies to the movement of data between two registers: 

Eg. LD ft, B 
puts the Malue in register B into register ft. 

LD R, (HL) 
puts the value at the memory address represented by the value in the HL 
registered pair, into register R. 

** USING THE REGISTERS *+ 

fis was stated earl ier, the Accumulator or R register is the most important. 

Rl 1 8-bit logical and arithmetical operations require that the R register 

contains one of the operands and the result is always left in A. ft number of 
the instructions which fetch or store a byte in memory also only allow R to be 

used. These operations could be carried out using another register but this 
would require an additional instruction. 

The HL register pair is also very important. It acts as the Rccumulatcr for 
16-bit arithmetical operations (there are no l6 - bit logical operations). R!l 
16-bit operations use HL as one of the operand registers and the result i^ 
left in HL . Its other main use is to point to a memory address which contains 
the value required in an B-bit operation. The BC and BE pairs can also be 
used this way but there ore many more Z 60 instructions which involve HL . 

Register B and register pair EC are often called the COUNT registers because 
they are frequently used to hold a count of the number of times an opertion is 
to be repeated, Crather 1 ike using a FOR/NEXT loop). For example, B is used 
in the instruction DJMZ which is the mnemonic for "Decrement B then Tump to 
the memory location specified if B is Not Zero". The BC register pair is used 
to indicate the length of a block of data which is to be moved from one memory 
location to another using the block transfer instructions LDI , LDIR, LBIt etc. 
The C register is also the only register used for certain input and output 
operat ions . 

The DE register pair can be used in much the same way as the HL pair but there 
are -fewer instructions that use it. DE and, for that matter BC , can be used 
to specify addresses but only the accumulator HL can actual ly be involved in 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE (08)3818542 



PRGE e 



the transfer. 

Eg . LB A , t BC ) 
and LD ( DE J . R 



ar» u a 1 i cl 



LD H . C DE J 
;ut LD H.CHL) 



is not valid 
i s valid 



ThQ flag register F must never be used to hold data. fts stated earlier. it 

contains several bits that are set according to the results of other 
calculations. F is an 8-bit register but there are only G flags of which A 
are commonly used:- the carry flag C, the pair vty/oygrf I qui f I oc P/U, the zero 

flag Z and the sign flag B. The flags are arranged as follows:- 

BIT FLRGS 

Carry 

L Subtract 

2 Parity/overflow 

3 Not used 

A. Binary Coded Decimal half carry flag 

5 Mot used 

6 Zero 

7 Sign 

The carry flag is set C i e . becomes equal to I") whenever an RED instruction 
produces a result which is one bit too large to be contained in a single 
register. The analogy in decimal arithmetic yiou I d be 7+8 - 15 ie. S CRRPY 
1. If you only had one column in which to write your result, you would nead o 
carry flag to indicate that you had added 7 and 8 not 2 and 3 (soij). The 
carry flag is also set when a subtraction produce"; a negative result or a 



borrow. The carry flag is 



so used by programmers when mu I tip lying or 



dividing, sines these operations can only be carried out in software - the Z 

30 only performs addition and subtraction. The carry flag is also affected by 

shift and rotate instructions and it is cleared ar set to zero, by logical 
^ — operations. 

The Parity/overflow flag has a dual purpose. When used to test parity, the 
flag is set to represent odd parity in the result of an operation. Stranqely. 
enough, odd parity occurs when the sum of the 8 bits of the result is even. 
The flag is reset on even parity ie. when the sum of the 8 bits of the result 
is odd. When used as an overflow flag, the flag is set if, after adding or 
subtracting two numbers of I ike signs (+ve or -vq) the sigr, c-f the result 
changes, indicating that the result is too large to be held in the register or 
register pair involved. 

The Zero flag is only set if the result of certain is zero. Thesp instructions 
are mainly concerned with arithmetical , logical and shift operations. 

The sign flag is set if the result of certain instructions are negative and 
reset if they jre positive. It has the same value as the sign bit (.bit 7 ~) in 
the accumulator. 



It may seem, from the above that there is some dup 1 ication between the various 
flags. This is only true insofar as the concept is concerned. In oract ice . 
certain flags ar& affected only by the results of certain instructions and 
there is little if any dupl ication. To fully understand the operation of the 
flags, you wil I need to read the Z 80 data sheets. 
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*+ REDRESSING MODES ** 

The. Z 80 has IB addressing modes 



1. 
2. 



B. 
7. 

8. 
.9- 

10 



Imp! ied addressing 

Immediate addressing 

Extended immediate addressing 

Register addressing 

Register indirect addressing 

Extended address ing 

Modified page zero addressing 

Relative addressing 

Indexed addressing 

B i t address i nq 



itsel f 



R. The 



1. Impl i ed Addressing 

In this kind of addressing, the operation code of the instruction has nc 
options and it always does exactly the same thing: 

Eg . LD , SP , HL 
This instruction takes the 16-bit contents of the HL register ard transfers 
them to the SP register. The contents of the HL register remain unchanged and 
no flags are affected, 

2. Immediate Addressing 

In the immediate addressing mode, one of the bytes in the instruction 
is mowed into a register. The data is IMMEDIATELY available. 

Eg. ADD A, 55 
55 is added to the value in register A and the result is stored in 
previous contents of R are lost. 

3. Extended Immediate Rddressing 

This is the same as the above mode except that two bytes of data are required 
as an operand: 

Eg. LD IY, FF00 
In this case the Y index register is loaded with the value i-~F00H 

4. Register Rddressing 

In this case one register is loaded with the value present in another one: 

Eg. LD A,B 
The value in B is loaded into A. 

5. Register Indirect Addressing 

This is similar to the previous mode but the data to be transferred is in tho 
memory location pointed to by a register pair: 

Eg. LD A,tBC:> 
This is a relatiuely inefficient wo^ of transferring data since the register 
pair must first be loaded with the memory address required before executing 
this instruction. It is really a hang-over from the earlier 8080 instruction 
set and the Z 80 has more efficient methods of accessing dc'oo in memory 
B. Extended Rddressing 

Sometimes cal led direct j addressing, the instruction contains the address of 
the operand. This mode requires fairly long instructions, 3 or A bytes but 
any location in memory can be directly addressed". 

Eg. LD A^.FFBB) 
R is loaded from location FF00H 
7. Modified Page Zero Addressing 

This mode app 1 ies only to the Restart Page Zero instruction - RST p. Its 
effect is to cause a branch to one of 8 page loocat ions after pushing the 
current contents of the program counter onto the stack. Poge is the ar&o of 
external memory which can be addressed in £ bits. Since 2 to the powt.r 8 ~ 
256, page consists of memory locations to 255 d<?c . 
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Eg. RST IS 
Control passes to memory location 10H. 
3. Relative Rddressing 

This mode. applies only to the jump relative (JR. 1 instruct tan . The value of 
the bute in the instruction is added to the PC counter to obtain the branch 
address. Relative addressing al lows the programmer to jump to ony address 
within -126 to +129 bytes of the current address. 

Eg . JR 30 
Jumps to the address 30 bytes after the current one. The advantage of 
relatiue addressing is that it uses only one byte for the address and code is 
position independent ie. a program which uses only relative addressing can be 
positioned anywhere in memory and will execute satisfactorily. 

9. Indexed Addressing 

The address of an operand is determined by adding a displacement bute to the 
gaiup contained in one of the index registers IX or IY. These instructions ara. 
thret or -four bytes long: 

Eg . LP C IX+20 > , 30 
loads the 30 into the memory location 20 bytes greater than that in IX. 

10. Bit ftddressing 

Using this mode, it is possible to set (make equal to 1), reset (make equal to 
') or test an individual bit in one of the registers: 

Eg. RES 2 ? C 
bit 2 in register C is reset to 

Well, that's all for this month. Next month we will start looking at the 2 80 
instruction set in some detail. filso, from now on we mill illustrate the text 
with some simple programs for you tc try. 

- 00000 - 



***** LEVEL I INKEY SIMULATOR - by Charlie Bart let. t ***** 



Those Level 1 owners who entered the game of RICOCHET in last month' s issue, 
had the pleasant surprise that it simulated the INKEY function available on 
Level 2 and gave them a game that didn't stop and start waiting for input 
I ines. For those of you who wou I d I ike to incorporate this function into 
games of your own, here is a detailed explanation of the program lines that 
create INKEY and the different uses to which it can be put. 

Using the game RICOCHET to examine the program I ines to start with. Line 5 
supplies the co-ordinates for 2 blocks to be set on the screen. 
5 CLS: R=0: R(I)=0: Q=2: 2=1: S=4: T=40: U=l: 0=43: GOS . 30e0 



The variables underlined ar& the ones involved 

which wil I act as non-interupt switches. 

30 SET (S,T):SET(U,U SPRINT RT 798; "RICOCHET" ; 

Lines 88 and 87 look to see which blocks are on and which ar^ 

of these I ines can change somewhat, depending on the program 

bu i I t into. We wi I i I ook further into this later. 

86 IR POINT ( S,T)=0)*( POINT (U,0) = D GOSUB 1000 

87 IF(POINT(S,T)=0)*(POINT(U,U)=0) GOSUB 2B00 : SET(U,V) 
Line 38 is the most important 1 ine of them al I . 

B8 PRINT RT 832;" - ; : IF 2=1 GOTO 98 

The statement (PRINT RT 832; ■ ' : 'j is essential 

RETER RHY OTHER "PRINT RT ' STRTEMENT. So, 



Line 30 sets the two blocks 



off. 
that 



The format 
they aro 



other PRINT RT statements, you must have S PRINT RT 832; 



and must appear in the program 

if you have, for ex a mp Ie, five 

"; statements as 
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nje t I . 

Eg.:- 

100 X=100 

11B PRINT RT SB; "HELLO"; 

120 PRINT FiT 632; * " ; 

138 IF Z=9 B=2 

143 PRINT RT 30 ; " TRS-B0" ; 

150 PRINT RT 832; * * ; 

160 etc . etc . 

What I ine 88 and others I ike it ( if entered) do, is hold the Cursor ct PRINT 
RT location 832 about 99% of the time. The small fraction of time the cursor 
is away , you won' t notice. 

We now haue one graphic block set at X axis 4, Y axis 40 which is PRINT RT 
location 333, this olaces the cursor touching the left hand side of the block. 
If you now press any alphanumeric key, the key character will be printed at 
833 thus blanking out the graphic block and causing 1 ine 86 to branch. The 
second graphic block is set at X axis 1, Y axis 43 which is PRINT RT location 
896 which is directly beneath the cursor. If you now press the ENTER key the 
cursor w i 1 1 moue down one 1 ine and knock bath blocks out thus making i ine 87 
branch , 

Line 150 is the end loop back to 1 ine 50. Note that the SET command for the 
blocks is outside this loop. If they were not, the blocks would be set before 
I ine 86 and 87 could act, 

Rl 1 other graphic action to do with your program should, where possible, take 
place above Y axis 40 as pressing the ENTER key blocks out al 1 graphics on 
that I ine, also steps should be taken to protect the simulator blocks from 
interference from your program, for example: - 

"WITH R MOOING DOT" 
120 IF(Y>=39)*(X<=5)RESET(X,Y): X=X+1: Y=Y-1: SETO^Y) 

otherwise the graphic action of your program could trigger off \ ine 36 and 
87. fts the simulator stands,, it can provide two functions:- press the 
(fl)=(alphanumeric) key = moue left or stop or up 
press CENTER) key = moue right or start cr down 

With a sma 1 1 change to I ines 86 and 87 we can increase the functions, for 
examp I e 

Press "ft" key once = move left 
Press "FT key again = moue right 
Press 'ENTER" once = move up 
Press "ENTER" again = move down 
This is achieved by altering 1 ines 86 and 87 os fol lows 

85 PRINT RT e32 ; " " ; 

86 IF (POINT (S,T5=0)*(POINTCU,U)=1)*(2=1)GOS.1000 

87 IF (POINT (S,T )=0)*<POINT(U,v:i = l->*tZ=2)GOS. 1500 

88 IF (POINT (S t T)=Q^*(POINT(U,O)=9)*f.E=l)GO5.2000 

89 IF (POINT (S.T>=0)*(POINT U , O )=0 ) + (B=2 :>G0S . 2S0S 

90 IF 2-1 RESET* X , Y ) : X=X- 1 : SET C X , Y > 
95 IF 2=2 RESET(X,Y):X=X+1:SET(X,Y) 
100 IF B=l RESET(X,Y):Y=Y-1:SET(X,Y^ 
105 IF B=2 RESET (X ; Y):Y=Y+1: SET (X,Y) 
110 GOTO 50 

SUBROUTINES 

1000 IF 2=1 2-2: SETCS.T): SETCU.U): RET. 

1500 IF 2=2 2=1: SETCS.T): SET(U,U>: RET, 
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2080 IF B=l B-Z: 5ET<S,T); SE"HU,U"): RET, 
2508 IF B=2 E=l; SET(S.T), SET(U ? U"j; RET, 

fls you con see there arg lots of possibilities, in fact if your program is 

only using alphanumeric characters in the display you can add a third graphic 

block tc the simulator and use the "CLEAR" key as your extra incut . Your 

branching control 1 ines would then look 1 ike this:- 

"Part of Imaginary Target Game" 

30 IF (POINT ( A,E J=0)*(POINTt C,D)=1 >*(POINT( E ? F )- 1 ) GOS.180Q 

85 IF ( POINT (R,B )={?)*( POINT(C,D)=0)*CPOINT(E,F)=1 ') GOS . 2000 

90 IF (POINT(ft,E)=0)*(POINT(C.D)=0)*CPOINTCE,F)=8) GO3.30BE 

100 GOTO 50 

1000 R.EM; PRESS "FT KEY". MOUE FIRING GRID LEFT 

1005 X=X-l; PET. 

2000 REM: PRESS "ENTER" KEY: MQUE FIRING GRID RIGHT 

2085 X=X+i: RET. 

3000 REM: PRESS" CLEAR" KEY: FIRE GUM 

3005 K-K-l: RET. 

With g \ it tie experimenting you will find all sorts of combine tons a no now uou 
can program your TRS-80 to ploy "real time" games suci as time bombs* target 
games, be ox the clock type games and many others. 

One last helpful T ip. if you press the "A" key or the "ENTER" key and nothing 
happens, it's a sure sign that you haven't got enough print at 832:" u ; 
statements in your program and the cursor is off floating around the screen 
instead of being where it MUST be. Remember that, end you should have loads of 
fun . 

-00000- 



***** READER' S REQUESTS ***** 

This column wilt become a regular feature o+ MICRO-80. In it, we mi 1 1 list 
all those articles, nrograms etc., requested by our readers. We wil I then da 
our best to work our way through them in the coming months. If you org 
thinking of contributing an article or program, haue a i ooV at this list 
first, it w i t i g i u e you an idea of what gut readers wont. 

** ARTICLES ** 

File hand! ing on. the TRS-80 

Book reu i ews 

Review of printers for the TPS-83 

Reviews of commercially au ail able software or.d hardware 

Review of Chess programs 

Description of the -functions performed by the Expansion Inter-Pace 

** SOFTWARE ** 

GAME CF LIFE relocated to start at 7000H 

RICOCHET ior L2/4K machines 

fl/c language program, to u<sq BREAK key 1 ike RESET when Expansion Interface is 

connectea . 
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** HRRDWRRE ** 

RS23Z printer Interface 

Inter-facing the TRS-30 to externa! hardwari? 

Lowercase modification 

- 00000 



***** BETTER BYTES ***** 

Hints from contr Ibutors to help us all 

TO SftUE memory space, when writing print statements, use the right and 
downward arrow keys, rather than using multiple spaces. Each tpoce uses one 
byte. So does each push of the arrow keys, and it gets you a lot further! 




DISK PROBLEMS are often caused by haying the drives beside and to the left of 
the Uideo Monitor. There's a lot of magnetism from the flyback transformer, 
on the left of the T.U. which can weaken or even erase the data on disks. 

ELECTROLUBE ore now marketing a cleaner for "wiping switch contacts". This is 
a s ', ightly abrasive, sil icone impregnated card, which can easily be cut into 
pieces smal I enough to get at those noisy keyboard contacts. When the 
contacts ace cl eon, the card stops changing colour, and it seems to last a 
long t ime . 

MICRO-80 inuit.es readers' contributions to this column. The best tip each 
month w i I I be rp'uarded with a one-month extension to the appropriate 
subscr ipt ion. 

-00000- 



*** DEF-USR-ING THE GftME OF LIFE *** 



by Peter Hartley 



We have received a few letters from readers experiencing some difficulty with 
the machine language port of LIFE (.Micro-80, Jon ' 80). In ol i cases theu have 
i oaded a tape dump of the machine language routine and attempted to run it 
with "/ >> ENTER < < " . This wil 1 not work. It was nener intended that it 
shou I d ! 



Line 10 of the Basic I isting. that accompanied the m^c lang. ! isting, POKES 
the entry address for the m/c lang. program into the memory locations that are 
accessed by the USR function in BRSIC. The last 1 ine of the Basic I isting is 
a loop that calls the m^c lang. routine with "X = USR(0):" 

This simple instruction forces the computer to store its present program 
location, and then to load the P.C. register with the entry address. POKED 
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into 1G52B and 16527 by I ine 10. When the computer encounters the final RET in 
the m/c tang. routine, it jumps back to ) ine 210, and continues to run in 
BASIC. 

In point of fact, the printed instructions for making your TBUG or other 
monitor dump of LIFE, gave a starting address of 0008. This is right at the 
start of ROM. Not because it is the correct address, but simply because hiq 
didn' t need to put one in. therefor "V >> ENTER << " wil I put the ' 88 into 
power up routine. The actual start address is 20798, or 5L3EH. The least 
significant byte ( 3E 'J concerts to decimal 62 which is POKED into L6526, and 
the most significant byte (51) conuverts to decimal 81 and this is POKED into 
16527. To access this nv'c I ang . routine directly, thereforQ, would require 
either adding the start address of 513EH to the TBUG dump, or the use of " > / 
20798 >> ENTER << " 

Disk Basic allows up to ten USR functions to be loaded into high memory at any 
on& time, but Level II basic only allows one. I'm working up another article, 
probably for the April or May issue, that will explain how to write your own 
m/c 1 ang . routine, using EDTASM, that a I lows you up to 254 USR cal Is in Level 
II ' 

I trust that this will have put a few people back on the raits of sanity'? 

There certainly is nothing worse than poring over a printed Hex dump, and 

comparing it with your own on the screen, looking for an error that simply 
doesn' t exist. 
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***** SOFTWARE SECTION ***** 

The listings for these programs ar^ at the back of the magazine. This section 
explains what each program is about and how to use it. fi word about the 
typeface. The various members of the Editorial staff have taken to writing 
their contributions on their TRS-BB' s , using the Electric Pencil word 
processing program. We then transfer them around on tape and disk (.the 
contributions, not the Editorial staff !>. Unfortunately. Eddy has not yet 
fitted a 1 awei — case modification to his machine, so al 1 his articles are in 
upper-case only. We hope you won't mind. 



** HANGMAN L1/8K with two 4K options. ** by Peter Hartley 



f ^ 



This is a Level 1 version of the Hangman game publ ished i n last, month 
edition, although working with the lack cf string hand I ing facil ities on Level 
L has left it barely recognisable. 

This version needs about 8k to fit in all the features that Peter has 
included, but readers with only 4k can get two separate versions of the game 
out of the published listing by carefully following the directions in the REl*1 
lines at the beginning. One version allows the user to enter words and 
phrases of up to L9 characters, spaces and hypens , while the other lets thg 
computer select from information stored in Data lines. 

Both options arc available in the full 8K version. 
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The graphics from Bernie Simpson' s Level 2 program have b^en retained, while 
Peter has added a y isual "drop on the rope", i f uou fail to beat the aams , 
using "point" graphics. f\\ though this facility is slow, it adds on interesting 
twist to an old favour ite. Unfortunately this added attraction has to be 
edited out to make the 4K versions. 

The use of data statements for establ ishing the string ualue of entered keys, 
is an approach which both speeds execution and safe's precious memory space. 
Users who want to add their own selection of words may need to change the 
random generator in the automatic selection routine. Each word is separated 
by data 99. while spaces can be entered with zeros and hyphens with data 27. 
The text data needs to be started and ended with Data 99. 

The R array is used from R(0) through to RC57): ACQ) to A(L0) are used much 
in the way that calculator memories are employed: R( A ) and Ri 7 ~) are used to 
sense and scare correctness of guesses: RC3) controls the selection of 
graphics routines: fit 6) is the value entered by the player: R( 1 1 ) to Rf.36) 
are used to store the values of the word being guessed* RC31J through to 
FK57) are used as toggles to check if a letter has previosuly been entered, so 
that the player is not penal ised for entering the same letter twice: RC81 
stores the word length: Rt. 9 ) stores the print position for the next wrong 
letter selected. 

Peter has again evolved some interesting formulae (.you may remeber the scoring 
analysis from "Frustration" in last month' s issue! ). This time formulae have 
been used to centre the display of the word or phrase being guessed, and 
locate the correct print position for each letter as :t is correctly 
sel ected . 



Rs I isted, the ful I 8K program has only six words and/or phrases inluded in 

data statements C. there' s plenty of memory left over in a 16K machine for 

adding more! Ed. ) - most of them related to this computing nobby of curs - but 

has the option for entry of words from the keyboard when two players are 
competing with one another. 

The short routine starting at line 3999 is not actually accessed by the 
program, but by entering G . 3900 . This routine converts your own words into 
numeric values which you can note down for entering in your ow" Data 
** N.B. You wil I cause the programme to crash if you add any 
those in the sequence starting at I ine 600, 
whenever the program runs. 



: nes , 
Dot. .3 I i. nes before 
since this Data is used first 



Mel I you lucky Leve> 1 users, 
had last month. Happy Hanging! ! 
enter ta i n merit , 



now you can have as much fun as Leve 



by Peter Hartley 
a series of mazes on the screen for you to find your way 



** RMRZIN LZ/4K +* 

This program draws 

through. Just enter the listing shown and follow the instructions 

expecting to aet an even more sophisticated maze progrom in a 

when we do, we wi! ! pub 1 i sh a ful I explanation of th^ algorithm used and how 

the program works. 



We are 
month or two and 
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** EIORYTHM5 +* by BerniQ Simpson 

This program plots the 3 curues relating to the theory of Bioruthms, 
fol lowing is a brief description of the program: 



The 



Lines 100-240 

Input & gal idat ion of todays date and birthdate. NT will contain maximum 

number of days in month (29 if February, and leap year) 182-134 compares 

birthdate with todays date. 

Lines 250-260 

Sets up parameters used in routine to calculate no. a+ days since 1/I/I900, 
where Dl becomes no. of days from 1/1/1300 till today, D2 becomes no. of days 
from 1/1/1900 tilt birthdate, and therefore D3 is no. of days since birth. 

Lines 2000-2050 

Routine to calculate days since 1/1/1900. 1 day is added for ech leap u,ear in 
between the two dates. The DfiTfi statement in 13E is used to add the no. of 
days in the months gone. 

Lines 280-300 

P=no . of days into Physical cycle, 
E=no . of days into Emotional cycle. 
I=no. of days into Intellectual cycle 



Lines 400-720 
Sets op initial graph. 
400-420 Headers and I ines 
480-600 Time scale on X-axis 
B20-720 Legend. 

Lines 740-780 

Sets up parameters used in curve drawing routine. 

C indicates which cycle to plot, 

M is no. of days gone into the cycle, and 

F is the no. of days in each cycle (23, 28, 33}. 

Lines 2450-2800 
SINE CURUE DRAWING ROUTINE. 

This makes use of the 5IN function in LevQl 2 BfiSIC. IN is the wavelength 
control , where reducing it from 0.28 increases the wavelength, and vice versa. 
DC is the no. of radians in a circle. The subroutine tests which cycle to 
plot, and ' sets' every calculated co-ordinate for P, every second one for E, 
and every fifth for I, in order to distinguish the curves on the screen. 2560 
calculates the Y co-ordinate as the X co-ordiate increases. The constant at 
the end of this line is the amplitude control. Reducing this reduces the 
ampl itude, and vice versa. The constant 13 in I ine 2580 is the wave 
displacement where increasing this causes the ' mean 1 of the curve to drop 
below the X-axis. The no. of days into the cycle is incremented before 
calculating the new co-ordinate. 

Lines 800-840 

Complete the description of the curues in relation to Active, Passive and 

Critical stages. 
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** FILES L2/16K ** by Eddy Paay 

(Last month, we promised you a simple DATA-EASE MANAGEMENT SYSTEM. This is 
it, but Eddy has developed it to the point where it is a uery useful program 
in its own right, rather than the simple demonstration of DRTR statements we 
had originally envisaged. Eddy has also dlscauere a way to build a machine 
language sub-routine into a BASIC program that I' ye newer seen before. I 
won't spoil Eddy's -fun though. See if you can find it for yourselves. - Ed.) 

THIS IS R PROGRAM DESIGNED FOR LEU 2 USERS WITH RT LEAST 1SK OF MEMORY. IT 
ALLOWS THE USER TO ENTER DATA INTO A FILE, TO RECALL THIS DATA LATER AND LIST 
IT TO THE SCREEN, IN A FORMAT SET OUT BY THE USER. IT IS THEREFORE SUITABLE 
FOR SUCH FUNCTIONS AS A MAILING LIST CONTAINING NAMES. ADDRESSES AND PHONE 
NUMBERS OR A DIRECTORY TO CONTAIN, FOR INSTANCE, MAGAZINE ARTICLES, DATE, 
UOLUME NUMBER AND TYPE OF ARTICLE, ETC. THE PROGRAM IS THEN CAPABLE OF 
SEARCHING THE FILE FOR ANY DATA ASKED FOR BY THE USER AND DISPLAYING ALL FILES 
TO THE SCREEN WHICH CONTAIN THE DATA ASKED FOR. 

THIS PROGRAM OUERCOMES MANY PROBLEMS ASSOCIATED WITH THIS KIND OF PROGRAM. IT 
AVOIDS LENGTHY, TIME CONSUMING DATA TRANSFERS FROM TAPE AS WOULD BE THE CASE 
IF THE INPUT*- 1 COMMAND IS USED TO LOAD AND WRITE THE DATA TC TAPE SEPARATELY. 
WITH THIS SYSTEM ALL DATA STAYS WITH THE PROGRAM AT fiLL TIMES AS DATA 
STATEMENTS, IT IS THEREFORE ONLY NECESSARY TO CLOAD OR CSAUE ONCE TO LOAD THE 
PROGRAM AND DATA FROM TAPE t OR DISK). 

TYPING THE PROGRAM IN: 
AS WAS STATED EARLIER, THIS IS A PART MACHINE LANGUAGE AND PART BASIC 
PROGRAM. NOW EXAMINE THE LISTING OF THE PROGRAM AND SEE IF YOU CAN FIND THE 
MACHINE LANGUAGE SUBROUTINE - - - 

HAUE YOU GUESSED IT? - IT IS THE REMARK STATEMENT IN LINE 1. THIS REMARK 
STATEMENT CONTAINS NO REMARK BUT A tVL SUBROUTINE INSTEAD, THAT IS WHY IT 
APPEARS TO MAKE NO SENSE. THIS M/L SUBROUTINE ALLOWS THE USER TO TYPE IN DATA 
WITHOUT HAUING TO STOP THE PROGRAM AND TYPE IN COMPLETE DATA LINES MANUALLY. 

THE M/L SUBROUTINE CREATES DATA LINES, NUMBERS THEM, AND CHANGES THE NECESSARY 
MEMORY POINTERS FOR BASIC SO THAT PROGRAM EXECUTION DOES NOT HAUE TO BE 
INTERRrUPTED. IT ALSO SAUES A LOT OF TIME AMD EFFORT FOR THE USER. TO TYPE 
THIS PART OF THE PROGRAM IN DO NOT TYPE IN THE REM STATEMENT AS IT APPEARS IN 
THE LISTING IN THE MAGAZINE, BUT TYPE * 1 REM" FOLLOWED WITH 25S SPACES THEN 
"ENTER" IT, THIS CLEARS THE REQUIRED AMOUNT OF MEMORY FOR THE M/L SUB. AFTER 
DOING THIS, USE A MONITOR COR USE THIS MONTHS INSTALLMENT OF "BASIC MONITOR" 
(DISK BASIC USERS CAN USE DEBUG.) TO TYPE IN THE DATA FROM THE HEX. LISTING 
PROUIDEE, STARTING AT THE FIRST ADDRESS C SA2AH FOR DISK BASIC OR 42EFH FOR LEU 
2). (HINT! SOME MONITORS MAY DESTROY A BASIC PROGRAM WHEN RETURNING TO BASIC 
SO, TO BE SAFE, JUMP TO BCCH. THIS IS THE BEST PLACE TO RETURN TO BASIC. ) 
AFTER RETURNING FROM YOUR MONITOR, JUST TYPE IN THE REST OF THE PROGRAM WHICH 
IS IN BASIC. THE ONLY OTHER THING TO BE MENTIONED IS THAT THE TEXT LIMES SUCH 
AS LINES 2, 7 AND SB MUST BE TYPED IN, EXACTLY AS LISTED. THIS REQUIRES THE 
USE OF THE CONTROL KEYS, THESE ARE THE ONES WITH ARROWS ON THEM. 

AFTER THE FIRST DOUBLE QUOTE IN LINE 2 FOR INSTANCE. TYPE THE DOWN ARROW KEY 
AS MANY TIMES AS NECESSARY TO GET THE MESSAGE °*** INITIALIZING ***" RIGHT IN 
THE MIDDLE OF THE SCREEN. 

ALSO NOTE THAT THE DATA STATEMENTS AT THE END OF THE PROGRAM DONT HAUE TO BE 
TYPED IN, THEY ARE THERE FOP DEMONSTRATION PURPOSES. AND SHOW HOW DATA IS 
STORED. THEY CAN BE TYPED IN HOWEUER SO THAT THE USER CAN PPACTTCE USING THE 
PROGRAM. WHEN YOU HAUE FINISHED TYPING IN THE PROGRAM. CSAUE IT (DISK USRS CAN 
SAUE I T . 
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HOW TO RUN 
TO USE THIS PROGRAM, FIRST SET THE MEMORY SIZE TO : 322S0 FOR THE 1SK. VERSION 
OR 48640 FOR 32K. OR 65823 FOR 48K VERSIONS:. THEN LORD THE PROGRAM FROM TAPE 
USING THE CLOFiD COMMAND (OR FROM DISK) THEN TYPE "RUT. THE SCREEN WILL THEM 
DISPLAY "INITIALIZING". WHEN INITIALIZATION IS COMPLETED, THE COMMAND LIST 
5H0ULD BE DISPLAYED ON THE SCREEN. IF "CHECKSUM ERROR* IS DISPLAYED INSTEAD, 
THE M/L SUBROUTINE IS FAULTY. IN THAT CASE REL JAD IT FROM TAPE. 

(WARNING \\\ NEVER TY^E EDIT I UNDER BASIC, AS IT WILL DESTROY THE M/L 
SUBROUTINE IN LINE ONE!. 

THE COMMANDS : 
(1) ENTER NEW DATA TO FILE. 

THIS COMMAND ALLOWS THE USER TO ADD DATA TO THE FILE, ALL THAT IS REQUIRED IS 
FOR THE USER TO TYPE IN THE DATA IN THE CORRECT ORDER SEPARATED WITH COMMA' S. 
BECAUSE ALL DATA IS STORED AS STRINGS, THE DATA MUST BE STORED BETWEEN DOUBLE 
QUOTES, IT IS NOT NECESSARY HOWEUER FOR THE USER TO TYPE THESE QUOTES IN 
MANUALLY, BECAUSE AS SOON AS -A COMMA IS TYPED IT IS IMMEDIATELY CONVERTED TO : 
", a AUTOMATICALLY. 

IF DATA HAS BEEN TYPED IN INCORRECTLY, BASIC WILL RETURN WITH A SN ERROR IN 
THE DATA LINE CONCERNED WHEN IT READS THE DATA LATER, SO TAKE CARE. 
WHEN A COMPLETE 'SET* OR "GROUP" OF DATA HAS BEEN TYPED IN, TYPE "ENTER THEN, 
WHEN THE "READY" MESSAGE APPEARS TYPE ENTER AGAIN. YOU WILL THEN BE ABLE TO 
ENTER THE NEXT SET OF DATA, ELSE HIT THE DOWN ARROW KEY TO RETURN TO THE 
DIRECTORY. 

ALSO YOU WILL NOTICE THAT THE AMOUNT OF FREE MEMORY LEFT IS DISPLAYED ON THE 
SCREEN SO THAT YOU WILL KNOW WHEN YOU COME TO THE END OF YOUR MEMORY. 

DATA FORMAT. 
THE FIRST SET OF DATA YOU TYPE IN WILL BE USED AS HEADINGS FOR ALL OTHER 
DATA, EXAMINE THE FIRST DATA STATEMENT IN THE LISTING OF THE PROGRAM TO SEE 
WHAT I MEAN, (OR BETTER STILL TYPE IN DATA AS IN LISTING AND TRY 1 

THE FORMAT OF THE FIRST 5ET OF DATA IS DIFFERENT FROM ALL OTHERS, IT CONTAINS 
A NUMBER AT THE BEGINNING OF THE DATA STATEMENT. THE NUMBER TELLS THE PROGRAM 
HOW MANY COLUMNS OF DATA THERE ARE IN EACH GROUP OF DATA. 

FOLLOWING THIS NUMBER ARE THE SUB-HEADINGS, (I.E. IF THE NUMBER IS 3, THEN IT 
MUST BE FOLLOWED BY 3 SUB-HEADINGS IN THE FIRST LINE AND ALL OTHER DATA GROUPS 
ARE EXPECTED TO HAVE 3 LOTS OF DATA IN ITS GROUP OR SET. ) 

IF YOU LOOK AT THE LISTED DATA LINES YOU WILL NOTICE AN "©" FOLLOWED BY A 
NUMBER, THE "»" TELLS THE PROGRAM THAT THE DATA FOLLOWING CONTAINS THE LINE 
NUMBER. THIS IS NOT TYPED IN BY THE USER, IT IS DONE AUTOMATICALLY WHEN YOU 
ENTER DATA UNDER THE "ENTER DATA" COMMAND. 

(2) SEARCH COMMAND. 

THIS COMMAND WILL SEARCH THE FILE FOR THE DATA ASKED FOR BY THE USER, IT WILL 
THEN LIST THE FIRST OCCURENCE OF THE DATA CONCERNED. ANSWER THE QUESTION 
*CONT. OR STOP" WITH "C" TO SEARCH THE REST OF THE FILE OR WITH "S* TO STOP. 
NOTE ALSO THAT IT IS OFTEN NOT NECESSARY TO TYPE IN THE COMPLETE WORD OR 
SENTENCE YOU ARE SEARCHING FOR. FOR INSTANCE, IF YOUR FILE CONTAINS THE WORDS 
■BICYCLE AND MOTORCYCLE" THEN THE SEARCH COMMAND WILL LIST BOTH IF IT IS TOLD 
TO SEARCH FOR "CYCLE*. THE SEARCH ROUTINE WILL TELL YOU IF DATA IS NOT FOUND 
OR IF ALL DATA HAS BEEN SEARCHED. 

(3) EXIT FROM PROGRAM. 

THIS COMMAND CAN BE USED TO STOP THE PROGRAM. UNDER LEO 2 THE BREAK KEY CAN 
ALSO BE USED TO STOP EXECUTION. UNDER DISK BASIC HOWEUER. THE EXIT COMMAND 
MUST ALWAYS BE USED TO STOP THE PROGRAM AND NOT THE BREAK KEY OR DISK I/O WILL 
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NOT FUNCTION PROPERLY 



(4) EDIT RND LIST LINE NUMBERS. 

THIS COMMRND TELLS YOU HOW TO EDIT THE DRTfi LINES BUT DOES NOT ACTUALLY 
PERFORM THE EDIT FUNCTION ITSELF. TO EDIT A FILE, STOP THE PROGRAM AND USE 
THE EDIT FUNCTION PROVIDED BY BASIC .( REMEMBER , DON : T EDIT LINE 1). 
THIS COMMAND CRN HOWEVER SEARCH FOR A PARTICULAR STRING OF DATA IN ITS FILES 
RND LIST ALL LINE NUMBERS OF DATA LINES THAT CONTAIN THE STRING IN QUESTION SO 
THAT THE USER WILL KNOW WHICH LINES TO EDIT. 

(5) LIST ALL. 

THIS COMMAND WILL LIST ALL DATA TO THE SCREEN ONE FILE AT A TIME. TYPE "Y* TO 
CONTINUE LISTING AND "N m TO STOP.. WHEN ASKED. 

L6K, 32K AND 46K VERSION DIFFERENCES. 
THE FOLLOWING LINES MUST BE ALTERED FOR DIFFERENT UERSIONS : 3. 7, L5B, 2S8, 
300, 302 

FOR 16K MACHINES, TYPE IN THE PROGRRM AS LISTED, FOR 3? AND 48K UERSIONS 
HOWEVER, THE FOLLOWING CHANGES HAUE 10 BE MADE: 

THE 32K VALUES ARE SHOWN FIR5T FOLLOWED EY THE 48K VALUES BETWEEN THESE 

BRACKETS : "< >" , "REST SAME" MEANS NO CHANGE FROM MAIN LISTING OF PROGRAM FOR 

THE REST OF THE LINE. 

3 Y=- 16896: < -512 > (THE REST SAME) 

7 (SAME UP TO J END" STATEMENT ): ELSEPOKE 16526, 126: POKE 15527 , 190 <254> CREST 

SAME-i 

150 A=2: BUFFER— 16641 <-257> (REST SAME) 

290 POKE 164 05,0: POKE 16526,0: POKE 1 6527 , 19E <254> (REST SAME) 

300 POKE 16405. l:NU=PEEK( -15663 < -2BS> )+PEEK( -IS668 <-284>) (REST SAME) 

302 X=PEEK( -16672 < -288> )+PEEK( -16571 <-2B7>) (REST SAME) 

FiPART FROM THE CHANGES SHOWN THE CHECKSUM WILL BE DIFFERENT, THEREFORE THE 

VALUE 27340 IN LINE 7 , MUST BE CHANGED SO IT WON' T RETURN A CHECKSUM ERROR. 

TO FIND THE CORRECT CHECKSUM VALUE FOR 32K AND 4BK VERSIONS , RUN THE PROGRAM 

AND WHEN IT STOPS AND DISPLAYS "CHECKSUM ERROR" TYPE "?B" AND REPLACE 27340 IN 

LINE 7 WITH WHATEVER WAS PRINTED ON THE SCREEN .(. FOR 32K VERSION CHECKSUM 

SHOULD BE 28746) 

DISK BASIC : 

FOR DISK BASIC SEVERAL CHANGES SHOULD BE MADE . FIRST ALL POKE STATEMENTS 

CONNECTED WITH THE X=USR( ) COMMAND MUST BE DELETED. 

FOR A 16K DISK BASIC VERSION FOR INSTANCE THE LAST PART OF LINE 7 SHOULD READ 

: ELSEDEFUSR0=&H7E7E:X=USR0(0), THE SAME APPLIES TO ALL LINES CALLING THE M/L 

SUBROUTINE. 

NEXT CHANGE THE FOLLOWING LINES : 

350 M=0: FORJ5s=lTOLE : READJ3$.( 1% j : M=M+INSTR(E*(. J%) , ES ) : NEXT 1\ : READHS : READH 

540 POKE&H4034 , &.HBB : P0KE&H403S „ &H44 : CLS : END 

THEN DELETE LINES 808 - 810 INCLUSIVE. 

CHANGING LINE 3SE AS SHOWN ABOVE WILL MAKE THE SEARCH FUNCTION MANY TIMES 

FASTER UNDER DISK BASIC. 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE {08)3818542 



** SET 2 *+ 

SET2 IS A MACHINE LRMGURGE PROGRAM DESIGNED TO INCREASE THE SPEED OF GRAPHICS 
AND TO MAKE PROGRAMMING EASIER. IT SIMPLY DRAWS OR RESETS A LIME BETWEEN ANY 
TWO POINTS ON THE SCREEN, INSTANTLY. IT RLSO MRKES PROGRRM EXECUTION FRSTER RS 
IT DOES AWAY WITH MOST FOR/NEXT LOOPS, WHICH RRE NEEDED IF A LINE IS TO BE 
DRAWN USING THE ORDINARY SET<X,Y) COMMAND. 

WHEN SET2 IS LOADED AND ENABLED, THERE WILL BE TWO NEW COMMANDS AUAILABLE FOR 
USE THROUGH YOUR BASIC PROGRAMS. THE SYNTAX FOR THESE NEW COMMANDS ARE : 
SET<A.B,C,D> AMD RESET< A, B , C , D > CNQTE THE DIFFERENT BRACKETS WHICH ARE USED-). 
WHERE A,B,C OR C CAN BE ANY INTEGER VARIABLE ALLOWED UNDER BASIC. IT IS 
USUALLY EASIER HOWEVER, TO USE A " DEFINT D STATEMENT AT THE BEGINNING OF YOUR 
PROGRAM TO DEFINE ALL VARIABLES USED IN THE NEW SET/RESET COMMAND. 
SOME RULES WILL HAVE TO BE CONSIDERED, THESE MUST BE STRICTLY ADHERED TO OR 
BASIC WILL RETURN A SYNTAX ERROR. THEY ARE : 

L. NO BLANKS MUST BE PUT BEFORE THE SET -'RESET COMMAND OR ANYWHERE IN THE 
PROGRAM LINE CONTAINING THE NEW SET/RESET COMMAND. 

2. THE COMMAND MUST BE IN A PROGRAM LINE ALL BY ITSELF, AND NOT IN A 
MULT I STATEMENT LINE, t EVERYTHING THAT IS TYPED AFTER IT IS IGNORED'; 

3. IT CRN ONLY BE USED AS A STATEMENT IN A PROGRAM AND NOT AS A DIRECT 
STATEMENT. 

4. IF THE COMMAND READS : SEKX1 , Y 1 . X2, Y2 > THEN IT WILL DRAW A LINE FROM Xl.Yl 
TO X2.Y2 ON THE SCREEN. C NOTE THAT XI, Yl DOES NOT HAVE TO EE THE SMALLER SET 
OF VARIABLES, ALL THAT IS REQUIRED IS FOR THE VARIR3LES TO EE *X ,: FIRST 
FOLLOWED BY " Y * ^ 5. THE USER MUST ENSURE THAT THE UARIAELES DO NOT ATTAIN 
VALUES GREATER THEN 127 FOR X AND 47 FOR Y' OR WRAP-AROUND WILL OCCUR. 



TYPING THE PROGRAM IN 
THOSE READERS WHO HAVE THE ED I TOR/ ASSEMBLER PROGRAM CAN TYPE IT IN USING THE 
MNEMONICS (THIS IS EVERYTHING TO THE RIGHT OF THE DECIMAL LINE NUMBERS), THOSE 
OF YOU WHO DO NOT HAVE THE EDITOR. ASSEMBLER WILL HAVE TO USE A MONITOR RND 
TYPE IN THE HEXADECIMAL DATA TO THE LEFT OF THE DECIMAL LINE NUMEERS IN THE 
LISTING. 

IN OTHER WORDS IF THE LISTING SAYS : 7B0B FD2135 THEN MEMORY LOCATION 7B0B 
CONTAINS FD, 7BB1 CONTAINS 21 AND 7B82 SHOULD CONTAIN 3S (.ALL NUMEERS IN 
HEXADECIMAL), THE REASON THE ONE MEMORY LOCATION HAS THREE BYTES LISTED BEHIND 
IT IS THAT THE COMMAND HAPPENS TO BE THREE BYTES LONG, IN THIS CASE. 

RFTER TYPING IT IN COPY IT TO TAPE IMMEDIATELY CUSE A MONITOR OR "THE BASIC 
MONITOR" IN THIS MONTHS ISSUE) USING THE FOLLOWING ADDRESSES: START =7DDE 
END=7FFF , ENTRY=7DDE 

LOADING THE PROGRAM 
MAKE SURE THE MEMORY SIZE IS SET TO 32222. THEN LOAD IT FROM TAPE USING THE 
SYSTEM COMMAND AND R^SWER THE "*?" WITH SET2 (UNLESS YOU CALLED IT BY SOME 
OTHER NAME', THEN WHEN THE QUESTION MARK RETURNS TYPE IN A SLASH 'V " FOLLOWED 
BY "ENTER". " READY " SHOULD THEN EE DISPLAYED ON THE SCREEN AND THE NEW 
COMMANDS WILL BE ENABLED AND READY 10 BE USED. 
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SAMPLE PROGRAM USING THE NEW COMMANDS. 
TRY THE FOLLOWING PROGRAM : 

10 DEFINTX,Y:CLS 

20 Xl=RNDt 127):Y1=RNDC47):X2=RNIK 127 : Y2=RNDC 47 ) 

30 SET<X1,Y1,X2,Y2> 

40 RESEKX1..Y1.X2, Y2> 

50 G0TG2B 

THE PROGRAM ABOUE WILL RANDOMLY DRAW LIMES OH THE SCREEN AND WILL DEMONSTRATE 
THE SPEED OF THE NEW COMMANDS IN LINES 30 AND 4(2. 



*« THE EASIC MONITOR C EMON ) L2/1SK *■■* 

THIS IS A MACHINE LANGUAGE PROGRAM SUITABLE FOR A SYSTEM WITH 1SK OR MORE 
MEMORY. THE PROGRAM PROVIDES THE USER WITH MANY POWERFUL UTILITIES COMMONLY 
NEEDED WITH LEUEL II BASIC. AFTER IT HAS EEEN INITIALIZED THE PROGRAM CAN 
SIMPLY BE ACCESSED BY TYPING A SHIFTED DOWN ARROW KEY AT ANY TIME. AFTER 
TYPING THE SHIFTED DOWN ARROW KEY THE COMMAND LIST WILL BE DISPLAYED ON THE 
SCREEN AND THE PROGRAM WILL BE READY TO ACCEPT A COMMAND. THE PROGRAM CONTAINS 
THE FOLLOWING FUNCTIONS : 

EDIT MEMORY. 

THIS UTILITY ALLOWS THE USER TO TYPE HEXADECIMAL DATA DIRECTLY INTO MEMORY 

AND ALSO DISPLAYS THE CONTENTS OF THE CURRENT MEMORY ADDRESS. 

COPY MEMORY TO TAPE . 

THIS COMMAND ALLOWS THE USER TO DUMP ANY PART OF MEMORY TO TAPE. THESE TAPES 
CAN THEN BE LOADED BACK INTO MEMORY AGAIN USING THE SYSTEM COMMAND PROVIDED 
BY BASIC. 

GOTO HEX. ADDRESS. 

THIS COMMAND ALLOWS THE USER TO JUMP TO ANY PART OF MEMORY DIRECTLY USING A 

HEXADECIMAL ADDRESS. (THIS AUOIDS HAUING TO CHANGE THE ADDRESS TO DECIMAL) 

RESTORE EASIC PROGRAM. 

THIS COMMAND WILL RESTORE A BASIC PROGRAM IF "NEW" HAS BEEN TYPED 

ACCIDENTALLY. 

LIST UARIAELES. 

THIS COMMAND LISTS ALL VARIABLES USED IN A EASIC PROGRAM, THIS IS A HANDY 
FUNCTION IF YOU ARE ADDING A PART TO A PROGRAM AND ARE NOT SURE IF A CERTAIN 
VARIABLE HAS ALREADY BEEN USED. 

DECIMAL TO HEX. R«D HEX. TO DECIMAL CONVERSIONS. 

THE PROGRAM WILL CONUERT HEX. TO DECIMAL AND DECIMAL TO HEX WHEN ASKED AND 

PRINTS OUT THE ANSWER ON THE SCREEN. 

RENUMBER . 

THIS UTILITY WILL RENUMBER THE LINE NUMBERS IN A BASIC PROGRAM TO USER 

SUPPLIED PARAMETERS. 

LOAD. 

THIS PART LOADS EASIC PROGRAMS. DISPLAYS THEM TO THE SCREEN WHILE LOADING AND 

TELLS THE USER WHERE THE PROGRAM IS LOCATED AFTER LOADING IS COMPLETED. 
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MERGE . 

THIS LORDS fi BASIC PROGRAM AND MERGES IT TO A BRSIC PROGRAM ALREADY IN MEMORY 
THEN THE NEW PRRT IS AUTOMAT ICLY RENUMBERED SO THRT IT WILL FIT BELOW THE 
PROGRAM THAT WAS ALREADY IN MEMORY. 

PROTECT PROGRAM. 

THIS COMMAND WILL PROTECT A BASIC PROGRAM AND MAKE IT INVISIBLE TO BRSIC. 

CANCEL PROTECTION. 

THIS IS THE REVERSE OF THE PROTECT FUNCTION AND WILL RECALL THE BASIC PROGRAM 

SO THAT IT CRN BE USED AGAIN. 

BECAUSE OF THE SIZE OF THE PROGRAM IT WILL BE SPLIT UP INTO THREE INSTALLMENTS 
OOER THE NEXT THREE ISSUES. THE PARTS PRESENTED IN THIS ISSUE WILL BE ABLE TO 
RUN BY THEMSELVES, ALL THRT WILL BE REQUIRED EACH MONTH IS TO LOAD THE 
PREVIOUS BLOCKS. T HEN TYPE IN THE NEW PARTS FROM THE MAGAZINE AND RELOAD THE 
PROGRAM ON TAPE, ALL THIS CRN BE DONE USING THE PROGRAM ITSELF. 

THIS MONTH WILL CONTAIN THE EDIT MEMORY COMMAND, COPY MEM. TO TAPE, GOTO HEX. 
ADDRESS AND THE RETURN TO BASIC FUNCTIONS. 

FOR THE FIRST INSTALLMENT YOU WILL HAVE TO USE A MONITOR TO ENTER THE DATA 
FROM THE HEX DUMP TO MEMORY, (OR USE THE MONITOR IN BASIC IN THIS MONTH'S 
ISSUE) AFTER THAT THE EDIT COMMAND CAN BE USED TO ENTER THE REST OF THE 
INSTALLMENTS INTO MEMORY . AFTER THE DATA HAS BEEN TYPED IN THE COPY COMMAND 
WILL ENABLE YOU TO LOAD THE PROGRAM TO TAPE. 

DETAILED DESCRIPTION OF COMMANDS. 

RS WRS SAID EARLIER. TO ACCESS THIS PROGRAM JUST TYRE < SHIFT > DOWN ARROW AT 

THE SAME TIME THEN CALL UP THE REQUIRED COMMAND. 

EDIT MEMORY : 

THIS UTILITY WILL ASK ■ HEX, ADDRESS ? " ANSWER THIS WITH THE ADDRESS AT WHICH 
YOU WANT TO ENTER YOUR DATA. IT WILL THEN DISPRY THE FIRST HEX. ADDRESS AND 
THE CONTENTS OF THIS ADDRESS. 
I T LOOKS LIKE THIS: 
8000 <DE> 
THIS MEANS THAT LOCATION 8000 HEX. CONTAINS "DE" HEX. 

YOU CAN THEN ENTER NEW DATA TO THIS LOCATION OR TYPE THE DOWN ARROW OR UP 
RRROW KEY TO INCREMENT OR DECREMENT THE ADDRESS COUNTER RESPECTIVELY . 
OTHER COMMAND KEYS ARE "X" TO CHANGE THE EDIT ADDRESS AND THE BREAK KEY l> r < 
RETURN TO THE COMMAND LIS 1 " (THE BREAK KEY CAN BE USED TO ESCAPE FROM ANY 
COMMAND OR FUNCTION-. 

COPY MEM. TO TAPE. 

THIS UTILITY WILL DISPLAY " START END ENTRY NAME - ON THE DISPLAY. JUST 
TYPE THE CORRECT UALUES UNDERNEATH EACH. AS SOON AS YOU TYPE THE SIXTH LETTER 
IN THE NAME, THE RECORDER WIL START TO RUN, AUTOMATICALLY. IF THE NAME HAS 
LESS THAN S LETTERS, TERMINATE IT WITH THE "ENTER" KEY. A GRAPHICS BLOCK WILL 
FLASH IN THE RIGHT LOWER CORNER AFTER EACH BLOCK IS DUMPED TO TAPE 
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GOTO HEX- ADDRESS. 

THIS COMMAND WILL ASK "HEX. ADDRESS ?" TYPE IN A A DIGIT HEX, ADDRESS AS 

ANSWER TO THIS AND CONTROL WILL BE TRANSFEREE TO THIS ADDRESS IMMEDIATELY, 

AFTER TYPING THE PROGRAM IN, JUMP TO 31641 ( 7E99H ) , '■■. THE SYSTEM COMMAND CAN EE 
USED FOR THIS BY TYPING " /31641 " AFTER SYSTEM HAS BEEN CALLED UP. ) THEN WHEN 
THE COPYRIGHT MESSAGE APPEARS, TYPE < SHIFT > AND DOWNARROW, THEN WHEN THE 
COMMAND LIST COMES UP ON THE SCREEN HIT THE "C" KEY THEN USE THE FOLLOWING 
ADDRESSES TO COPY THE PROGRAM TO TAPE : START = 7226H , END = 7EFFH , ENTRY = 
7B99H , NAME = BMON f OR. ANY OTHER NAME UP TO SIX CHARACTERS). 

RPART FROM THE UTILITIES ABQUE *BMON n ALSO HAS A KEY-BEBOUNCE ROUTINE BUILT 
IN. IF KEYBOUNCE IS STILL A PROBLEM EUEN WITH THE PROGRAM LOADED, INCREASE 
THE VALUE STORED IN 7D87H. SCANNING WILL THEN SLOW DOWN FURTHER AND LESS 
BOUNCE SHOULD OCCUR. (NOTE: THE KEY DEBOUNCE SUBROUTINE ONLY WORKS UNDER 
BASIC, NOT M/C LANGUAGE). 



*** MONITOR. IN BASIC REUISITED *** by Peter Hartley 

Beinq lumbered once in a month is bod enough, but He did it to me twice 1 
Clutching g cassette, allegedly containing a copy of lost month' s *Mon i tor in 
Basic" program (.all lines -from E000 to 9280 mere missing!), and an excellent 
I Qtter from Ron . Su I t y of Loganholme, Old, i who' s turning into so me thine? of a 
regular correspondent already; - good on you, Ron'), this time it mas a casa 
of "see if you can sort this out - it doesn't wo r k -. " 

Now, sometimes I have. to admit a certain mentoi blockage towards someone 
else's way of approaching a computing problem., and this, unfortunately, was 
one of these occassions. Finally I gave up, got an understanding from Him 
that we would puhlish Ron's letter, and set about creating a new Monitor. 
Frank! y , I hacln' t euen thought about this particular problem before, being 
blessed with ■several excel lent machine language uarieties that can be forced 
to do my wil I , whenever needed. 

I sincerely trust that everyone wil t be happy with the result, which wi I t give 
you a straight hex 1 isting on the screen, 1 ike these we pub! ish in MICRO-BQ, 
the ab i 1 i ty to change the value stored in any R.A.M. location, and facil ities 
to store to, and retrieve from, cassette. It' s not very fast, but it' s faster 
than last month' s version, and wi 1 ! dump a 4K programme in twenty-three 
minutes (exactly 22 times as long as TBUG ) . It does, however, let you see 
exactly what's going out to tape, or what's coming in from tape, while it 
runs . 

Unfortunately, it just will not squeeze into u 4K level II machine. Now then! 
Stop your grumbl ing at the back! The good news fol lows in a minute! 

There is one sequence that is untested, and that' s the error trap at the end. 
I've had the hardware cassette read modification fitted to my '80, and try as 
I did, it wou Idn't miss a byte all evening, so if that particular sequence 
doesn' t work you can all throw it away , together w i th the ONERR0RGOT0 bit at 
the begin ni ng . 

MOW, the Good News for all you 4K folk, cut there. 
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*** MINI MACHINE LANGUAGE LOADER IH BASIC *+* bu Uno Hoc 



This is in ttuo ports, the writer and the reader, and it leaves you about 1.5K 
in a 4k machine for al 1 those high-speed goodies that MICRO-80 has cominq up. 

The mr iter is just a simple way of creating a data tape for the reader. Tg 
use the writer, there's na need to protect any memory, just enter it in and 
get a couple of HIGH QUALITY BLANK TAPES. Once you' ye entered the start, end, 
and entry points, and the name, you simply copy the M1CRO-80 hex \ ist ings , 
and, from t ime - to- X tme , your '80 will lock up the keyboard while it dumps a 
whole 124 bytes out to tape. If you make a goaf, while entering the data, 
just carry on with the corect data. Prou iding that you ha^en' t hit >> ENTER 
<< yet, it hi i M not matter, as the program only looks at the S .iSt two 
a I phanumer ics in each entry. The only way that I could get l t to gl itch up 
ijias by entering spaces. You may I ike to put a trap into it, to check that the 
last two characters are within the range of 0-9-F, but I assumed that the 
majority of our readers were pretty bright sorts who wouldn't make those sorts 
of errors a n y uj a y ! 



T h q second port is the reader, largely lifted from the f u I I scale program. 

Before entering this, set your memory protect leuel to 18800, to reserve 1679 
bytes for the m . ! , qoodies. 

Once it is entered, just set the cassette to play, and go and haue a cuppa. 
Once the m.l. is entered, you can access it by BREAKing the basic routine, 

typing SYSTEM, >> ENTER <<, and then responding to the *> with / and the entry 
address IN DECIMAL. 



Finally, a word about that cassette read modification that I metioned earlier. 
If you have troubles reading tapes into your '80, it really is worth your 
while getting this. It your '80 is st iM under warrenty, or if you or^ not 
very handy, I understand that Tandy will now supply and fix the iterr, at no 
charge. You' It just houe to wait while they ship the unit to Sydney and so 
forth. Otherwise, your local Tandy Store tuil I obtain one of these for you, 
and charge only about S3. 60 for it. The unit is just a t i ny oiece o* 
uero-board with a couple of I.C.'s and about six wires, and should come with a 
very good instruction sheet, that not only explains how to install it, but 
also how it works, AND IT REALLY DOES WORK WELL. I can set the cassette 
volume at anything from 3 1/2 to 8 1/2 and it still reads it all: It' il >aua 
a great deal of frustration over the years. 
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how to s a u e a lot o-f dollars, 
and still have a Sot o-f -Pun, 



BUILDING YOUR OWN 7.R.S. 
LIGHT PEN FOR UNDER S3 . 38 



by Peter Hartley 

There I was, minding my own business, teaching our T.R.S. SB tc gamble on the 
horses without losing tao much of my wife's hard earned cash, when who should 
telephone but a certain name less magaz ine publisher. "You 1 re not do i no much 
these days, or& you?" he warbled sweetly. Without giving me a moment to utter 
a single cautionary remark o-f- over -commitment , he muttered darkly about 
something called an "Associate Editorship", "not much money for the first 
seven years" , and hung up. Assuming that he was simply suffering from 
TRSDOSitis, or ar oyer abundance of subscription appl icat ions, T resumed my 
earnest attempts at creating the world's first millionaire T.R.S- 80. 

Precisely twenty -four hours later He (capitals for His Propr i etorsh ip ) was on 
the phone again, uery determined. "I ss(?m to recal I that you were building a 
i ight pen. I hope that it' s working, because I' ve promised the readers an 
art lcle for this month, and we can' t get our prototype to ^ork. " Eefore I 
could explain that my version suffered from every electronic complaint 
possible, and that the "project" was lying under fifteen feet of form-quiden 
and copies of the Sunday result sheets, he announced that he "wanted the 
article by Tuesday I It' s got to be at the printers then." He ojos gon& and I 
was I umbered ' 

First of all, then, some of you may want to know what a 1 iciht pen is, what it 
does, and how. It's really a device fo,r ' \ a?\i people with tired fingers, 
enabl ing them to communicate with a well -trained comouter, without u^ina any 
sort of key-board. 



A light pen is not a torch, nor does it blast a laser be^m into your v ifluo 
terminal , so powerful that is goes down all those fun r -y 1 ittle wires and comes 
up in your overheating RAM. It dues, in fact, the e-act opposite, picking up 
mo dulated or puised I iaht from the ij idee c 1 i ? o ; a y , arid, ; T your programming is 
all right, telling the beast uih e r e the pen is located, 

Commercial I ight pens can cost anywhere from around £20 to S-200. As with all 
things, you' 1 1 newer get more than you pay for but you wi! '■ uery often get c 
great deal less. The unit that I'm going \c describe here is the rock-bottom, 
cheap, horrid, unreliable little nasty for wh ich you'd normal ' y pay anything 
up to $50 or STS0. If it costs you ei;en one cent aver S3 . BE you we been ripped 
off by your local electronics component supply house. Unfortunately, you will 
not be able to buy one of the components at your local Tandy :to-e,- 



was designed firstly to be cheap, and only secondly to 
ake si ight ojustments to the unit according to 



E e c o i j s e this version 
work , it may be necessary to m 

the eccentricities of your particular ■jus tern and the a mb ient ! ight I awe! s in 
(our den, lounge, or, if your wife is I ike mine, the 1 ittle 
it and bathroom. 



outside the toilet 



bit of passage 
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wo c?ptre 



hr?t of c' ■ ! you w i \ \ nQQd to col lee t the necessary caniponGnts, which a^e as 

f o ! ' ows ; 

1.) a plastic (black if possible) pen u ious ing , with a reasonably Icrqt 

( 2mm -3mm approx j opening inhere the writing business used to come ou^ . This 

needs to be ot a type that is made in two pieces, and is al i screwed up in X^n 

middle - 1 ike sow of those programs we' ug seen from t, ime to timg :$0.0B - 

should be one tying around. 

2. J .2 Tandy 9 uclt battery (Catalogue number 23-464 ): frP . 59 

3." 1 a flat connector for the battery (Tandy w i \\ sell you a pack of five 

(Catalogue number 279-325) for S0.99 ';: SB. 20 

4.) a 1/8" miniature jack plug: Pack r_.-r two (274-736> for *i.3S 

5) approx three feet of fine microphone cable - wi'-.b 

conductors and a single screen. M.B. First of a 1 l < , it w : I 1 not tratter if this 

cab I o has more than, two centre conductors, but you' i 1 quickly come to hate the 

entire deuice if the cable is too thick and stiff. Tandy carr\j, nnl j onq type, 

which, in my opinion, is far too heauy, stiff, and thick to f i v. into the pen, 

and they' II sell you a twenty foot pack w^ich is enough to moke op six or 

set.ion pens. Fortunately my local Tandy manager is fairly tamo , and a comouter 

genius into the bargain, and he had a piece under tnc counter that iiq; iu i '. 

what I needed. However, we can' t al 1 I ins in the eastern suburb r rj-f ftdelaide, 

so you may haue xo hunt around for something su i t ab 1 e : &i . 25 may i mum. 

6. ) one resistor. 1/4 vuatt . The value w i 1 t vary from one unit to another. 

In various tests I naue found uciue* from 470 ohms to IB rneg necessary, and 

the unit that I am presently using has dispensed with t,hi i component 

al I -together ! : f-0 . 25 

7 . "> one silicon photo trans i s tor , N.P.N. , similar to Fair-chid tLjne ^PT-lfMZ!. 

(Tandy catalogue number 276 - 138). IS.B. You may find two types of this device 

in your local Tardy dealership, both with the same catalogue number 

Fortunately they come in a clear bubble-pack so you can see what you or* 

getting. The visible difference is that the tens end of thy device (the end 

that doesn' t haue anu, wires on it ) is f tot on one of the versions and rounded 

en the other. ^o<.> ing tried both types 1 consider that f;->r tnis particular 

app I i cat ion you ihust, use the rounded lens type: 50. Gb 



Mow 



fit it a!i t o a e t h e r . 



Solder and soldering iron reaay? If you' rt a handyman type, then you'' 1 ': hav>p 
a dr i | ; lyina around somewhere that's _.ust right for creating on open, inc in 
the end of the per to admit the cable. If, on the other hand, ycu' re more of 
a "Norm*. I ike me, y^ ,J can s i mo I y me ! t a hole with the soldering iron, but 
make sure that there' s plenty of ventilation, because if the body of the per 
is made of P.U.C. then the fumes could be positively harmful . 



T he phototrans l at or needs to f ■. t comfortably into thg front na , f of the pen 

body. If it doesn' t fit you' d better hunt around for a larger pen - don' t tru 

f \\ ing away at the oho totr ans i st or because you' I. 1 probably --.it ! it, an:j 

Murphy's Law dictates that the very day this issue comes avK uj ; i ! oe the day 

that Tandy Rustral la starts to enjoy a national phc t c trans \ s'or shc-faoe. The 
one Lieu •< i I 1 uj i M be the last o r e t h e u nav e . and t ney dor, t r<z--jrc i &r u n \ i : 
Thursday so the ear! lest they' 1 1 yet any more is Monday wee 1 ' ' 
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You' It find throe ujires in the base of the phototransistor ■ arranger! in a 



triangle. Locate the "base" wine (the middle one), or 
the back of the box (You didn' t throw it aujay . 
transistor, the current into this pin would control 



f c I low the 

did you?). 

the f i ow 



diagram on 
In a norma! 
of current 



between the other two pins. In a pho lotrans istor , the supply to the "hose 



generated by I ight fat I ing on it, and you can cu 
uery close to the body of the transistor. 



off this ijj i r e . carefu 



13 

4i 



Now feed one end of the cable through the still smouldering hole in the pen, 
and strip off the insulation, taking care not to rip the braid screen, which 
needs to be unpicked and twisted. You now have two thin insulated wires, from 
which you should remove about 4mm of insulation, and the twisted end of the 
screen. Tin the grids of the three wires, and solder one of the insulated 
wires to each of the two remaining iegs on the phototrans istor, about 7mm from 
the body. When you do this, hold the wire from the phototrans L stor with o 



pair of fine nosed pi iers,, close to the transistor body. This wi 
any excess heat, minimising damage to both the transistor, a 
valuable programmers fingertip?. 



shunt oF+ 
; . a u o u r 



With the pins of the photo trans i star facing you, and with the remains of the 
"base" pin at the bottom, note the colour of the wire that you have connected 
to the left hand pin; this is- the signal lead. 

Rfter feeding the other end of the cabl 6, together with the leads from the 
battery connector, through the body of the jack plug, careful ly strip off the 
insulation at that end of the cable in a similar manner. The wires from the 
battery conector will already be stripped end tinned, but a 1 ittle dab of 
sol der here will do no harm. 

With luck you' II have one of those dinky i it tie table- tap vice-" around the 
place, which are most useful when soldering miniature jack olugs. If you 
can' t readily lay your hands on one of these, you' i ! find the next best holder- 
is one of the sockets for which the plug is intended. If your daughter won't 
lend you her tranny for ha I f -an-hour , you' I ! probably have to use the 
microphone sockeV in your own computer' s tape deck . 

It always helps to improve access for the soldering iron if you spread the 
solder lugs on the jack plug apart, before tinning them. Carefully solder 
the signal lead to the smaller of the two lugs on the jeek plug, and the 
screen, together with the RELD lead from the battery, to the other. The 
remaining two leads should be soldered together, taking care to make the joint 
as s ma II and as tidy as possible. This last joint will have to be insulated in 
order to prevent it from coming into contact with either af the lugs inside 
the plug assemb ly. You could use a little dab of rubber glue, sealast ic, or 
even epoxy putty, probably the best idea is to slip o sleeve of discarded 
plastic insulation over the joint. 

Rt this stage, the only wire not connected is the pen end of the screen braid. 
The sensitivity of the pen is controlled by varying the value of a resistor 
connecting the screen to one side of the phototrans i stor . you can moke the 
final assembly of the plug at this stage, to enable testing ami ajustment to 
be carried out. The two teeth on the side of the larger of the jack plug lugs 
should be bent down with your pi iers, so that they both bite into the outer 
insulation of the main cable. This is to ensure that a sharp tug on the cable 
will not rip out all your carefu! soldering. 
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You uji!' need to enter the fol Icyjing test program into your T.R.S. 80, 

10 CLS 

20 OUT 255.4 

30 FOR T = TO 10: NEXT 

40 PRINT $ 512, INPC255), 

50 PRINT » 0, CHR»(191); 

60 OUT 255 , 4 

70 FOR T = TO 10: NEXT 

30 PRINT @ S7B, I HP (255), 

90 PRINT @ 0, CHR$r. 32); 

100 GOTO 20 

This program w i i 1 cause a block of 1 ight in the top left-hand corner o-f the 
screen to 4' I osh en and off . n.ih i ! y the vaiue of the cassette port is checked, 
and the results displayed on. the screen. 

R+ this siage the phototrans i stor should not be instj! led in the pen bod'j . 
Start the progrom running, and plug the 1 lght pen into the microphone port of 
the cassette recorder, which should not contain a tape. Disconnect the 
aux i I I ary jack from the computer, and I eaue the ea r pince jack connected. 

Inside th'^ cassette bay of the recorder, at the back on the I eft -hand side, 
you ijiiI I find c small metal arm. This normally senses the presence or ! , ack of 
the erase protection tab on the back of the cassette. Gently push this arm 
in, simultaneously setting the recorder into RECORD mode, end then connect the 
battery to the battery cl lp. 

Ho i d the photo trans istor , by the body - not the wires , with its lens touching 
the y idee screen oyer the flashing point in the ton left-hand corner or the 
screen . 



If oil is tue t I you should see the numbers 127 and 255 on the scten. If both 
art showing 127, try turning the brightness of the display up until the I omsr 
number changes to 255. On the other hand, if both numbers are showing 255, 
there is too much light, and either the pen must be Ces ins l t i sed , or the uideo 
display turned down si ightly. 

To reduce the sensitivity of the pen. connect progressively I oojer value 
resistors across the screen and one pin of the Phc t otr ans i s tor . I' rr> certain 
that for S3.B& you' re prepared to spend a. 1 ittle tins experimenting? 
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E ' SIMPLE EXAMPLE OF LIGHT PEN APPLICATION PRCGPR»1ME , 

10 DEFINTS 

20 CLS: PRINT '.PRINT: PRINT "^ E N U" ; : PRINT'TRSC 35 ; " SELEC'f " : 33=-? 

33 PRINT 

40 51=4 ' THIS LINE SETS THE MAXIMUM NUMBER OF OPTIONS 

53 F0RS2=1T0S1 : RERDD«C 52 ') : NEXT 

60 FORS2=ITOS1 : PRIMTTABC 2 )D«( S2 > : PRINT : NE<~ 

73 FORS2=iTOSl:GOT0I2C 

80 PRINTei65+12B*S2 .STRINGS 2, 191 >:G0T013B 

90 PRINT©165+L23*S2, " " : NEXT 

1.30 0NS3G0T0153 . 1S9 , 170 , 130 

LIB G0T07S 

120 0UT255 t 4 : S4-INP1 255 ) : GOTO80 

13B IF lNPf255X=S4 GOTO90 ELSE IF INP<.2S5>>S4 G0 T O143 ELSE GOT r PR 

140 S3=S2: GOTO100 

150 PRINT*896, "YOU CHOSE LINE * 1 . * : GOTO 133 

160 PRINT@89B, "YO'J CHOSE LINE #2 . " : GCT019G 

170 PRINT @83B, "VOU CHOSE LINE *3 . " : GOT013C 

130 PRINT&896, " YOU CHOSE LINE #4 . " 

1.90 FORT I = 3TO100B: NEXT: RESTORE :GOT02«3 

200 DRTR THIS IS LINE ONE , THIS IS LINE TWO 

210 liftTfi THIS IS LITE THREE, THIS IS LINE FOUR 

-30000" 



***.** LETTERS TO THE EDITOR ***** 
F r oni: Mr . U . C . V OT I NES , Sunbury Uic. 

1 am looking forward to your Assembly Language Programming Course. Is it 
possible to obtain t>-9 source 1 istinti of LOADER and -future SYSTF-M programs 7 

(Yes, we con supply source I istings separatel y, to order, Ir. future, uj?. w ; ' ! 
pub I ish source. 1 i stings of short programs in the magazine. Unfortunate! u, the 
source \ istings of some of the longer programs are as bio as the magazine 
itself, so toe will have to make a nominal charge for these. We wil ! indicate 
the change in the ne levant software section. -Ed. ';•■ 

From: JOHN C, HARDWICKE, CoUaroy Plateau, NSW. 

The Tandy Technical I iterature I have been able to get my hancss en seems 

pretty sparse, I believe you could include articles on references to suitable 
reading materia!. 

(.Thanks for- the suggestion John, uje certainly uj i ! I . In fact, uie are currently 
in contact with o number of American pub 1 ishers of TRS-80 1 iterature with a 
vieuj to importing the better pub I ict''(. ions for resale. We hope to be able to 
offer the f inst few Titles next month. -Ed. ) 

From: L.ft. PERRSON , Somerton Park. S.R. 

fts an amateur user of Level 2 1 find many things frustrating. The lack of uirao 

around on graphics , the fact that I have a Level 1 to Level 2 conversion tape 

and can' t find out hou' to use it orrj errors in publ ished programs. The 

"'Ready, Rim, Fire'' program in the Le"el 2 Nanual dees not work ' I got a copy 
on a purchased games tape ijjb.ch would not run correctly either 1 Moyhs u,cu 
could o u b I s h a belter v e r s i o n , 
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As other machines come into general use you should extend your magazine ta 
include them. Even in US magazines there is as yet, I ittle Apple II software 
advert lsed . 

1 have been reading Tandy Assembly Language book. I was not clear if T BUG 
was included in the Editor/ftssembler but evidently it is not. I cannot see 
the point in using assembly language for mathematical functions in Level 2 
when they are already in ROM. Search or graphics routines are probably better 
but not if Assembler takes 5K. I have not seen T BUG aduert ised as a tape 
program. I hope you get one on the market. 

Rs regards hardware, I hope you wil 1 publ ish something on how to connect ta 
the output connector without interface. Also, it seems that Centronics 
printer at about $600. is the most reasonable, moderate performance machine on 
the market at present. Comments on printers in your magazine would be 
apprec iated . 

As not alt programs in any issue are of interest, will individual ones be 
available on tape (at same cost?) I am assembl ing a universal subroutines 
series program which may be of interest. Do you want typewritten proogram 
comments? I presume you publ ish LIST with your printer, from tape. The 
December issue - Electric typewriter, is more readable than the Jan. "printer" 
vers ion . 

(Taking your comments and questions in order. 

No, Level 2 is not superior to Level 1 in all respects although, you wilt soon 
find that the lack of graphics wrap around is not a serious penalty to pay for 
al I the other good features of Level 2. 

We ar& surprised that you can' t find out how to use the Level i. to Level 2 
conversion tape. It should have come with instructions. Briefly, you load it 
into your Level 2 machine under the SVSTEM command. You then type "/19190" 
for a 4K machine or "/31478" for a 16K machine. The program starts off by 
prompting you to read in the Level 1 tape that you want to conuert with the 
message "LOAD TAPE AND PRESS ENTER". Before pressing ENTER, make sure you 
adjust the volume control on your recorder to the Leuel 1 range (7-8). Once 
the Leuel 1 tape is read in, the computer displays "PRESS ENTER TO BEGIN". Do 
that and wait for up to a minute while the Conversion program does its thing. 
On completion, the computer displays " CONVERSION COMPLETE - PRESS ENTER TO 
CONTINUE". On pressing ENTER you return to BASIC with the converted program 
in memory. It is a good move to CSAUE it immediately, before running it. 
Final ly, you ma\^ need to make some changes to run the program in Level 2. If 
it uses an arrai^, you may need to add a DIM statement. If it rel ies on 
graphics wrap around you will have to add that feature with some extra program 
lines. Incidentally, if you have a 4K machine, it is possible that some of 
your programs will be too long to convert and you will have to do the 
conversion on a 16K machine. 

Rfraid we can' t help you with the Ready, Aim, Fire program since we' ve never 
used it. Perhaps some other reader has sorted it out and wil I write in. If 
not, we will have a look at it ourselves. 

As far as programs for other machines ar& concerned, we have no plans to 
include them at present. Quite frankly, we've got our hands full with the 
TRS-80 for the moment. Maybe we wil I consider a separate magazine for Apple 
and Pet Commodore users at a later date, the problem being that there are not 
as many of these machines in use as there are TRS-80's. 

You're right, TBUG is not included in the Ed i tor^Assembl er but it is available 
as a tape program from your Tandy Dealer. You ar& also right about using the 
mathematical functions in ROM whenever possible. However, some people I ike to 
write their own for the satisfaction it gives them. Incidental ly the 
Editor/Rssembl er does not take up space when you are running your program. 
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You use it to make a system tape, clear the machine and then load in the 
system tape, by itself. 

We will include your suggestion about connecting hardware directly to the 
output connector in our requests. You can count on an article about this in 
the next -f em months. SQueral readers have asked us to comment on printers and 
we intend to prepare an article on that subject for future pub t ication. 
Cassettes of individual copies are always available for S3. 50. That would be 
the best way to buy the particular program you want on tape. From time to 
time we will make programs of particular interest, available on tape 
separately (like BASMON this month). We are also considering publishing 
collections of programs on tape, every few months. El . g . a games tape, a 
utilities tape, etc. 

Program comments do not have to be typewritten but please make sure that they 
ar& written very legibly. Some of our contributors include their comments and 
descriptions as REM statements at the front of the program which we then 
delete for printing. The ideal , from our point of view would be to send uour 
comments on an Electric Pencil Cassette (with I ower case letters). Yes, we do 
LLIST programs for publ ication. 

Your comments concerning the readability of the December issue versus that of 
January are noted. Unf ortunat e 1 y , it requires far more effort to lay out and 
correct the magazine using a typewriter. So, for the moment we must stick to 
the dot-matrix printer driven by a word processing program. Perhaps, as 
circulation increases, we will be able to afford a daisy-wheel printer and 
satisfy both requirements - Ed. ). 

From: RON KEHN, Korumburra , Uic. 

If a particular month's software is of particular interest to me, is it 

possible to get a cassette just for that month, or must it be as part of an 

annual subscription to magazine and tape? I bet ieue it is possible for about 

520.08, to get a kit to modify the TRS-B0 to lower case. I am sure that other 

readers and myself would be interested in further information about this. 

Also, let' s have the article on the RS232 printer interface very soon. 

(Yes Ron, you may purchase a single cassette of any month' s prorams for 53.50. 

1 guess our order form has caused some confusion here by not being specific 
enough on this point. We have changed it from this month on. As far as the 
lower case conversion is concerned, we use one ourselves and it costs much 
less than 520.00 for parts. However, it does not work with the ordinary Level 

2 BASIC. We wil I describe how to do it in the near future. It wil I probably 
be the April or May issue before we can describe the RS232 printer interface 
but, if we can speed it up, we will. Ed.) 

From: TONY MERITON, 85 Milton St., El wood 3184 

Tony is looking for a cheap expansion interface, new or used, with or without 

memory. (If anyone can help, please contact him direct - Ed) 



From RONALD J. SULLY, Loganholme Qld. 

Firstly, may I congratulate you on the concept of MICRO-80. I believe it to 
be the type of magazine which meets the much needed requirements of would-be 
programmers, (albeit adventurous), like myself, that up till now, were left in 
a void. 

wou Id I ike to bring your attention to, what I believe 
some articles in both issues (Dec. '79 and Jan. '80.) 



If I may , I 
er r ors i n 



to be , 
If I am 
then I 
may save some of your readier s heartache and frustration. Many of 
the errors I found are merely typing errors and any programmer worth his salt 
wil I discover them for himself and carry out the appropriate corrections so I 



wrong, then I stand corrected but, if what I am about to say is true, 
be k i eve 
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haue no intention o f bringing these error; to your attention. 

Tne first srror that I be! l eve to bo significant is in Issue 1, Page ) "? , in f ne 
illustration of the CTR-4Q cassette modification. THq relevant r. ■ariar.jpn f V '. , 
directs that a place of wire be soldered to point D (common with the uei ■ ■vj. 
hi ire J. The fact is that the ye 1 tow wire is at point C. not IJ . J carried oof 
the modifications explained by gou and read the il lustrct ion wi in point C cno 
D reversed. I thank you for the advice and instructions as I f,nd tie CT r ' -41 
is now much more convenient to use. 

Secondly, as an enthusiastic taut ignorant assembly language pro&nx-.t-j- . ..'ji thcut 
TBUG or an Editor 'Pssemb ' er etc), on receipt of Issue 2, J eager! y jumped into 
Mr . Ian b>agg' s MONITOR IN BRSIC program . he I ieving I could uss it to i cad the 
m/c '; anqucqe subroutine of Mr. Peter Hc^tley' s program. GAME v 1- L.j.~F 
However, this was not to be. Firstly. I encounter eo a lot of pr rtl^ms i' 
getting trie Men it or to work. The - irst problem involves the Command Code" ; " 
conjunction with the Tes" Input Command subroutine starting ot ( ine LOOP. The 
essence ot the prop Ism was tS.at ujhen I ctterrpted to modify memory in nt'/ hu 
entering o number containing D L e . g . -4 LP., CCH etc, s the T ?st. Input ''ommcro 



subroutine udqi 



read it as J for POMr 1 and send 



TLF"^ 



w ; t 
tiut 



did proue anrmy ing. Both the DOMP and LOOT! subroutine? 
60B0 and 3000 respectively or* entered log way c* 



o t ■, .. o s :. o r o u t i n e - wu- a it o 
osK. the question "' i L l Li, '" "■' i so; uea" that by using "T* (for T^^E'?^" 7 ' ! inB'tead o j ' 
D. To dea,r<3Ss +"or a moment - the program 7 was using os c test cose wos 
LOADED as pub) ished m Issue i. . I mi I i say now that I am Most impressed 
it and use it constantly even though I han^ the hass'e of locdir.; ■ t . 
back to MONITOR in BRSIC: 

I was a bit slow in pick ine, up the next pr?!;! era which is by re me one a; ', 
important but i 
commencing I ines 

conditional GOTO but each have the instruction. PE T 0RN at 1 .r.es 620? and 3230 
respectively. It would not have been sat . ", -factor y to simply have urtch of the 
I ines (.6200 and 9230) read GOTO 20 because ot the CLS at 1 ine 20 so I amended 
those two I ines as toll ows: 

(BEGS) &2O0 INPtIT "PREsc ENTER TO CONTINUE"; X:G0TO 20 

and that solved the problem. Brother method of cou"-ss could be a si mo It 
timing loop. 

The next minor nrcO'em is that i ine 3005 ■■.■:<•, \ ' nee:-' to include a CLEAR 1OS0 'or 
whatever; tc a 1 1 ow users to load a oat a tace o± the first command after 
cower-up. ft better al ternatiue would be to i no 1 ydfe the CLFAF' s f. ntS'V.ent in 
1 me 20 thereby cowering the requirements of either subroutine FOSO - or S0?*C- 



IVw last, but by ■■' I 1 means the most significant, problem ijjit t, he c-.^ooram > <, 
the "LORD MEMORY FROM TAPE* subroutine. 

I found that not on! g does this subroutine NOT work but the n^esent, format 
produced some vefg disturbing effects (.1 ike freeze up). The prcfPern 'tes in 
bine SKS. the POKE stoterr,e-t. Firstlu, it is nol fjossib'e to POKE into 
PT ART , the start address o -; t h ~. i e q v t p o s /= i b I e n u rob e •" POKEci l n t o U'O u Id be 
STPFT -v ? (2 being the j'.or* ; r-o. vclue at C "' but in prar.ttco I found that the 
f i ■"- -. t memory address F'OKPd by o w at : ine was in fact P~flRT ■+ 4 C it deoends on 
how many characters make up the ■ ■g.'-j- to or POKEd - B$ ) . The", because of the 



condition » a i ri o- q 'jj'" :i Sine SI 20 i 
least 2 'the n u mn o r u t c h a r a o •: e ^ s 
; o Tie t h i n o ;,.■ o s F'OKEd a g a : r< , 



di 40/8142, 

n PS- - 1 before 



vjnij ! d t". 



1 ^' 



Drjc ; 



.e 



ne t?I4i3 ujas c ■"•count : ^'" ed and 
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To il lust rate this, the f ol I owing is an example of what occur rod with me mher 
oad LOADER: 



I tried to 
START = 

START + C( 



adartiss Uaiue 

7C30H 

7CS1 

7CS2 

^C33 

7C34 76 *C 

7 CSS 

7C96 

7C97 79 4F 

etc 
31892 f. dec) 7C94H was the first memory address POLEd oy subroutine 8@Q9 and 
thereafter it wa^ every third (if there ojere two characters in the vclue 
POKEd), whereas START (318SS 7C90H ^ should have been POKEd with the value ?5 
C4CR'i and START + 1 (31889 7C91H) should have been POKEd with the value 75 
f. 4FH ) and so on), In the illustration above, where no value is shown against 
the memory address, the value was in fact whatever happened to be there 1 ' So. 

y - 



Memory 

31888 

3188S 

31890 

31891 

31892 

31893 

31894 

31895 






l9tC i 

i ncr emented 



bu 



program is suitable 

all the prev i ous 

adv issd tby LOR SEP. J 



under those conditions anything could happen (and it did! ! ) l -f 
language uos called under the SYSTEM function. (It is rather tedious 
a m/c language ore-gram via the keyboard three or four times j . 
I overcame the problem by adding or changing the fol i owing i nes: 
3B35 ME=START 

8145 D=D+5: POKE ME, ORL( h% J : ME=ME+1 : Bt= r " 

The above i ines then on I y a I I owed the memory cdriross to be 
(and an I y 1) it ana when a value wa.? POKEd. 

Onwards and upwards . \ ) 
The write up (page 14'; far the MONITOR IN ERSIC claims the 
for 4K. CI have a 16K machine;. But, haw ing sorted out 
problems I used LOADER to load MONITOR IN ERSIC and was 
that the end address was 31DBH. 1+ you add another 1R1B0 bytes on top of that 
to cater for the CLERP 1Q0G statement it obuiouslu exceeds th-:* maximum address 
4FFF of a 4K machine. 

Which bring"? me to the next problem, THE GAME OF i_IFE. The stat address of 
the rn/c language subroutine is 53BBH which means one cannot use the MONITOR IN 
ERSIC program to i oad the CAME OF LIFE. GAME OF LIFE obviously needs at least 
16K . so why would it not have been possible to locate ;he m-^c language 
subroutine in high memory, as I be I ieve is usual !y done, say from 7B00H to 
7 19 AH? Perhaps uou could consider that for publication in the March issue of 
MICRO -80. 

Rlso, I was confused by the section that explains GAME OF LITE (page 12'j that 
stated that the entry point far the m^c language subrout ine was v5R?lH when the 
values POKEd into 1SS2S a 16527 (62 and 81 respecx, iue I y ) led me to be'i ieu? 
that the entry address was 513EH. Am I right in be \ ieving th-5 c-.try address 
is POKEd into 1S52E and 1S527 ( LSB first)? 

Apart from ai ! I have said previously, tny thanks go to you and Mr. Oagg for 
the BASIC IN MONITOR program. I hops to see many more ro/c language Droarams 
in MICRO-80 (particularly those I can load using MONITOR IN BASIC). 
Having pointed out some errors, I would now like to make some suggestions for 
the magazine which I feel will be a lot of help to some of the less 
experienced programmer. Have yopj considered including a HELPFUL HINTS 
section'? Ey this I mean some programming method that wil ! achieve either a 
quicker, more accurate or more economical method of what could be termed a 
consistent requirement within a program. For- instance, there haue been many 
ocCQiions when I have needed a random number within certain values so I 
developed a -formula. To il I ustrate: If the random number l-os to be between ^ 
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and E,(R being the lower value and E being the greater valus) then the s i mp i « 
statement : 

P = IHT ( v B-ri)*RNIK 0) ;+fl would achiavs this 
If Pi — 12 and B — 4S then the I ine would read 

R - INT r.33*RNDtQ)) + 12 
If you refer to line 3005 of fin. C. Bartl eft's RICOCHET program you mill s»Q 
that the above method is f ar mare off icient.. 

Another requirement that programmers often need is a method or sorting numbers 
ar names in ascending on descending order, 1 haue encountened a few differer, ". 
methods, (.the one 1 developed tcok Par too much time to process'. Perhaps you 
may be able to aubl ish a method en methods to achieve this? 

I think that these things I have been talking about could be considered 
"tricks ot the trade" and until one has discovered a Few programs are produced 
which ana unnecessarily long, ( 4K is not veny much) and slaw 'watching a 
" bu i i et " fflou e across the screen at a snail's pace is not very realistic'' so i. 
believe a HELPFUL HINTS or TRICKS OF THE TRADE column will be apnneciated by 
all readers of varying programming ab i \ ity. And. of cou'ss, those same 
readers will gladly contribute any hints that they may have accumulated. Tt 
will also fill some empty spaces currently appearing in the magazine, 
fin other readers' service which I be! ieve MICRO- SB couid give is possib'y 
rev ipid or at least an opinion o f uar ious items of hardware being offered 
the market. One that comes to mind is the Light Pen currently advertised 



a 
on 

bu 



DICK SMITH. Hcsvertisements vsry seldom tel i 
MICRO -80 could give various items a "road test" and 
outcome. The review need not spec Li ;cai I y re-F'e 
instance, could possibly explain the Ujor kings of 



ful 



story so perhaps 
advise readers of the 
to n e l; products but, for 
and the need for the 



Expansion Interface. What does it do beside providing the medium for 
expansion? Why is it needed to be able to operate the real -tine clock? Are 
there various ways of adding on peripherals without it? CI read with interest 
your article \ n issue 2 on the memory expansion without the interface'}. Is it 
possible to address the 25S I/O ports without the Expansion Interface? 
1 think I may have said enough for the t i me being so again T congratulate you 
on the concept ot MICRO-SB, thank you for giving me access to many other 
programs and I wish you success for t,hp future, (.If you succeed, I'll 
benef it). 



'so right about the error in Issue 1, page 17 concerning 
modification. The yellow wire is at point C, not D. 



the CTR-41. 

In fact , we 

it might be 



(Thank you Ron both for the nice things you said about the magazine and, more 

important lij, for the very worthwhile contribution to the magazine which you 

have made. You have done a first class job debugging MONITOR IN BASIC. I an-. 

just sorry that you had to do it at all, Anyway, the article this month 

should put it right but if any reader wants to persevere with the original 

version, please make changes Ron has worked out. 

You are a 

cassette 

have heard of one recorder which hao! a different coloured wire 

best just to go by the diagram. 

Your comments concerning GAME OF LIFE ore noted. The article REFUSRING GRME 

OF LIFE this month should answer the entry po intquest ion , Rs far as 

relocating the m/c language subroutine at 7000H , we wil I print a HEX I is* ma 

■for that in the March Issue. 

Your suggestion concerning a TRICKS OF THE TRADE column has been echoed by a 

number of other readers and starts this month. The "road testing' of hardware 

and software products offered for the TRS-80 is one of our original objectives 

and wehore to be able to start this in the near future. Once again, thanks 

for your con t r ibutior,. - Ed . ) 
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From: DRUID COUPE, Moonee Ponds, Uic. 

You may get a guide for -future articles or series o-F- articles by I is ting, each 

month, suggestions made by readers. Feedback from other readers would clearly 

indicate to you which subjects your readers would I ike to ha»'e dealt with. I 

would welcome a series of articles fully exploring the f i I e -crea t ion , 

f ile-handl ing and f i I e -man lpu I at ion capab i I ities of the TRS-88. 

(No sooner said than done - Dauid. The READERS REQUESTS LIST starts this 

month your request at the top of the Articles section. Thanks for the 

suggestion - Ed.) 

From TREUOR JAMES, Kyabram, Uic. 

I have receivod the last two Issues of MICRO-SB end have found the mag. ueru 

good except for lack of instructions on some progams (eg. MONITOR IN BASIC''. 

I also received Issue 2 on cassette and found it to be of veru poor qua i ity as 

the first program on side 2 had no index ("F" > and, when I oadea with CLOAD, 

loaded rubbish and not the program publ ished. The only program which did run 

and load corectly was "H" with the others having various faults. 

Also, could you print 'RICOCHET* in L2-'4K? 

Could your mag. please advise me on the current "CHESS* programs available and 

their pro' ' s and con' s? 

(Your comments about lack of instructions are noted, Trevor. Now urn have two 

Associate Editors, we should be able to overcome this problem completely. 

Sorry about your cassette. By now you should have received a replacement , 

free of charge. Copy cassettes from the first two Issues were made using 

entirely avjdio techniques. You may need to use a si ightly higher volume 

setting than you ac& used to, to load thm satisfactorily. Future cassettes 

will be copied using digital techniques and should load at norma \ levels. 

Char I ie Bartlett, the author of Level L RICOCHET has just converted his 

machine to Leuel 2 and is developing a L2 version of RICOCHET wh i ch we hope to 

publ ish next month. 

Your question concerning CHESS programs has been put in our READERS* REQUESTS 

column, we will try to get to it as soon as possible. - Ed. ) 



********** SPECIAL OFFER ********** 

3M0N ON CASSETTE ONLY $-10.06 

This is the Utility program featured in this issue and the next two issues. 

The complete program is available MOW, on cassette. Each cassette comes with 

ful I documentation and contains the 1SK, 32K and 48K versions. 

You can also purchase a hard copy LISTING of the assembled source code for 

on I y $5. S3. 

Source code on cassette $5.00 

***** SEND FOR YOUR COPIES NOW ***** 
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***** PROGRAM LISTINGS ***** PAGE 3E 

L REM HANGMAN - LEVEL ONE - APPROX 8K NEEDED IN ORIGINAL FORM 

5 REM n " " ""■ - - - « . - - » .-..-..,» n . » . 

10 REM FOR 4K VERSION ONE - RUTOMRTIC WORD SELECTION 
1.1 REM DELETE RLL REM LIMES, LINES 1410,1440 

12 REM LINES 21S0 TO 217S. LINES 3808 TO 3033 

13 REM AND LIMES 1BQ0 TO 1890 

14 REM FOF 4K VERSION TWO - USER INPUT WORDS 

15 REM DELETE RLL REN LINES, LINES 1410,1.440 
IB REM LINES 2i.Se TO 2175. LINES 3800 TO 3030 

L7 REM LIMES 1445 TO 1490 AMD DATA LINES 19999 TO 20903 

IB REM 

20 REM* ***#*#*^* #*#***#*#*#*#*# ft******************************* 

50 REM COPYRIGHT PETER G. HARTLEY 

60 REM (Ci 1988 57 MAIN AUENUE, FREWV1LLE, S.A. 5083. 

70 REM PHONE C0S)-~9-406i FOP CUSTOM PROGRAMME DEVELOPMENT 

8B REM ANY -TIME AT REASONABLE RATES. 

90 REM Tf-CS PROGRAMME SPECIALLY COMMISSIONED BY 'MICRO-80" 

95 REM >;>,',< >>><<< X> ><■'.< >>X<U />/<<< >>><<•- >>><<<> >><< <>>><<< ;X> 

109 GOSUF300B0 : GOSUB 1400 

1 1 GOSUB230 : GO"! 100 
1SE A ( A .) =A f ) - 1 : RETURN 

200 ACS ) = 1HT', <. 83- C ACS)- 11 )*2)/2 ;<+S3: AC 4 )=0 

205 F OR A ( i = 1 1 T OR t 8 > : AC 5 J = ( ft ( ) - 1 1 ,' *2+ft C 9 ; 

210 IF l ( A . At > ■ >0 ■'* : AC AC 3 ) X 27 ) )THENPRlNTv?-AC S X J ? " ; : A( 4 J-AC 4 ) + l 

220 IFA( R> : ) X27ThENPRINT£AC S ) , ' - " ; 

230 NEX~i A: } : At 5 .' -25 1 : PFINTSl 16 f " WRONG ' UNS " : AC 3 )=R 

240 PRINT**© , " ■ ; : INPUT " GUESS* ; AC 5 X PRINTS , ' ' ; : GOSUBS0B 

245 IFRC ACS 5 + 30X >0GOTO240 

2S0 ACT j=Q: At RC SX30 } = 1 : FORAC ,' = 1 1T0R( 3 X IFAC AO) ) = A( S)GOSUB400 

260 NEXT AC J : IFA C 7 j=0GOSUE500 : X=24 : Y=25 

2SS IFRC 3 .-9THENRETURN 

270 IFRC. 4 )< >0GOTO24B 

280 PRINT®3i2 ! n C CONGRATULATIONS \ " r FORA=0TO200@ : NEXT A: RETURN 

400 AC 2XC RC0)-11 )+2+R(9):PRIMT@RC?) , RS; : RC 7 >= 1 : A( ^ )=-R( 4 X 1 : PRINTf&0 , : RETURN 

500 PRINT@RC5 ) ,ft»; : fit 5 )=AC 5 5+64 : RC 3 )=ftc 3 . + 1 

510 ON AC 3 )GO5UB2000 , 20 IB , 2030 , 2040 , 2060 , 20Q@ , 20SS 

520 IFrt(3K>8THENRETURN 

536 GOTO2150 

G00 RESTORE: FORAC 1 j=0TOAC S ) : READRS: NEXTPC 1 X RETURN 

SIB DATA" " , R.E, C,D,E,F,G,H, I, J , K, L ? M, N, . P . Q , R, 5 , T , !_L O , W, X , Y . Z. u -" 

1400 CLS:PRINT^278, 'H A N G M A N" 

1410 PRINT#S12, A ":: INPUT "WHO SETS THE WORD"? CI) YOU OP C0) ME";Rf0"; 

L428 FORAC 9 >= 1 1T057 : RC AC 9 ) }=0: NEXTAC9) 

1440 ONRC0 5GOTO1800 

1445 CLS-. RESTORE : FORAC X0TO27 : REAEAS: NEXT AC ) 

14S9 RC0 >-RND(. B):REM CHANGE NUMBER FOR MORE WORDS IN DATA 

14S0 READAC 1 ;*. IFRC ]. )=99THENAC XAC 8 )-i 

1475 IFRC 8 X >SGOTO14G0 

1480 FORAC ) = 1 1 T 030: READAC AC 0) ): IFRC RC0) X 28THENNEXTAC ) 

1490 GOT 0180 

1806 CLS: PRINT" INPUT THE WORD NOW - MAKE SURE 

1805 PRINT<§>832, " 

1810 FORAi 0) = 1ITO30:RC5)=932+RC0 ) 

1S20 PRINT»JL32, "INDICATE THE END OF THE WORE 

1830 PRINT" I r VOL MRKE R MISTAKE - ENTER >>> 

184E PRINT "DON' T ENTER the HEX"" LETTER UNTIL 

1845 PRINT "TO ENTER A SPACE ENTER >>> <<.<" 



. NO 


-ONE' '" 


j PEEKING 1 : * 




WIT 


H >>) 


99 


<<■=" 




77 


<<<" 
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1847 PRINT "TO ENTER ft HYPHEN >>> 27 <<<' 

1843 PRINT@AC5), " ' ; :INPUTAC6) 
1850 IFAC6)=7?GOTO1800 
18G0 IF AC 6 )=99THENCLS:GOTO180 
1870 IFAC6)>27GOTO1800 

1880 GQSUB600:PRINT(«!'ftC5) > AS; :A( AC0) )=AC6 ) : NEXTAC ) 

1885 PRINT: PRINT" SORRY - WORD BUFFER FILLED - SOMETHING SHORTER PERHAPS?" 
1890 GOTO 1805 

2000 FORX=2STO80 : SET( X , 38 ) : NEXTX : RETURN 
2003 DATA3, 15 , 13 , 16, 21 , 20 ,5 , 18 , 0, 15 , 16 

20 10 FORY=38T032STEP- 1 : SET C 25 , Y ) : SET ( 50 , Y ) : NEXTY : FORX=25TO50 : SET ( X , 32 "> : NEXTX : RET 
URN 

2030 FORY=38T08STEP- 1 : SETC 65 „ Y ) : NEXTY : RETURN 
2040 Y=39 : F0RX=58T065 : Y=Y - 1 : SET C X , Y > : NEXTX 
2050 Y-39: F ORX-72T0655TEP- 1 : Y=Y- 1 : SET C X , Y ) : NEXTX : RETURN 
20BB F0RX=65T037STEP- 1 : SET ( X , 8 ) : NEXTX 

2070 Y=1B:F0RX=S5T058STEP-1: Y=Y-1:SET CX. Y): NEXTX: RETURN 
2080 F0RY=8TO 1 4STEP2 : BET ( 37 , Y ) : NEXTY : RETURN 

2090 FORX=35T039:SETCX, 14 ) : SETC X , 19 ) : NEXTX: SETC 34 , 15): SETC 34, 18): SETC 40. 18) 
2100 F0RY=16T017: SET. 33 , Y ) : SETC 41 , Y > : NEXTY : SETC 36 , IS) : SETC 38, IS ) : FOPY=20TO26 
2 1 10 SETC 37 , Y ) : NEXTY : X=37 : F0RY=26T03 1 : X=X - 1 : SETC X, Y "' : NEXTY : X=37 : F0RY = 2BT031 
2120 X-X+ 1 : SETC X , Y ) : NEXTY : SET C 30 , 31) : SETC 44,31): FORX=3ST039 : SET C X , 22 ) : NEXTX 
2130 X=35: F0RY=23T025: X=X- 1 : SETCX, Y ) : NEXTY : X<39:FOPY=23T025: X=X+1 : SETC X , Y ) 
2140 NEXTY : PR INT@484, "LAST CHANCE !";: RETURN 

2150 FORX=25T05P>:RE3ETCX,32>:NEXTX:PRINT$4B4, "GASP, MOAN, THUD"; 
2155 AC3) = 9:FORAC 16 ) = 1 1TOAC 8 ) : AC 6 )=A< AC 10 j ; : GOSUB660: GOSUB250:NEXTAC 10) 
2160 FORftC9)=lTO4:FORY=35TO145TEP-l:F0RX-25T044 
2165 IFPOINT C X . V - 2 > = ITHENSET C X , Y ) : RESET C X , Y - 2 ) 
2178 SETC 37, 14): SETC 37, 12 ): NEXTX : NEXTY 
2175 NEXTAC9) 
2180 RETURN 

3000 REN THIS ROUTINE IS TO HELP YOU CREATE YOUR OWN DATA LINES 
3005 CLS 
3010 GOSUB300Q0 
3020 AC 1 ) =5 12 
3030 PRINT@0,'* •, :INPUTAC0 1 : PRINT <&flC 1 ),AC0); :AC 1 )=AC 1 )+4 : GOTO303* 

19999 DATA99 

20000 DATA20, 1, 14,4 ,25,8, 13, 1, L4 , 1 . 7 , 5, 18 . 39 . 2 , 15 , 24 , 0, 15 , S , S . 20 , IS. 1 , 14 

20001 DATA19,9 t 13,20,15, 18 , 18 , 99 , 13 , 9 , 3, 18 . 15 , B , 5, 3, 7 , 8 , 20 , 25 

20002 DAT A99, 28, 8,5.0 ,3,8,9. IB , 19 . , 1 , 18, 5 ,0, 4 , 15 , 23 , 14 , 99, 23 , 1 , 14 .20 . 5, 4 

20003 DATA0, 27,3, 16, 18, 15,7, 18 „ 1, 13, 13,5, 13,99 

20004 DATR1 , 18,5,8,25, 15.21,0,8, 1,22,9, 14, 7.0. .6,21 . 14.99 
20009 DATA999 

30000 A= 1 : B=2 : C=3 : D=4 : E=5 : F=6 : G=7 : H=8 : 1=9 : J = 10 : K= 1 1 : L = 12 : M=13 : N= 1 4 : 0- 15 
300 10 P=1G : Q = 17 : R= 18: S= 1 S : T =20 : IJ = 2 1 : 0=22 : W=23 : X=24 : Y=25 : Z=2S 
30020 RETURN 



***** CORRECTION ***** 
PLEASE MAKE THE FOLLOWING CORRECTION TO THE "FILES" PROGRAM IN THIS ISSUE 
LINE 680, AFTER - DIM B«t!_E>: ADD - DIM CSCLE): 
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*+* AMAZIN +** 

10 ' ORIGINAL CONCEPT BY JRCK HAUBER, LOOM IS SCHOOL, WINDSOR', 

CT . f U.S.A. 
20 THIS UERSIOtt TOR '80 ( C ) OP Y RIGHT 1975, PETER G. HARTLEY, 

ttAIN AUENUE, FREHUILLE., SOUTH AUSTRALIA. 
L08 CLS:PRINT*I7 MAY TAKE A FEU! MOMENTS - v 'Ou' LL HPUE TO PRESS A KEY FOR ME." 
LIS CLEAR ■■ RANDOM: DEF1NT fl-2: DIMWf 33,7), LK 33, 7) 
120 H=30:O=6 

130 Q=Q : 2=0 : X=RMD^ H i • F0RI = 1T0H 

MB FORI=1TOH:IFI=XTHENPRINTCHR*( M9); " " ; : NEXT : ELSEPRTNTCHR* C IS? ; : CHPSC 140); : NE 
XT 

150 PRINTCHRJC 1 49 ) : C= 1 : W( X , 1 ) = C: C=C+1 '■ R=X*. S=i : GOTO20B 
L60 IFR< >HTHEMGOTO130ELSET! r S< >UTHENGOTO1?0ELSES=1 : R=l :GOTO1S0 

179 R= 1:9=5+1: GOTO 192 

180 R=R+1 

190 IFWCR.S)=0GOTO1S0 

200 IFR- J.M0ORWCP-1 , 5)( >0THENGOTO330ELSEIFS- 1=0ORUK R. 5- 1 X >0THENGOTOZ50ELSEIFR=HO 

RWC R+ 1 , S X. >0THENGOTO2ieEi.SEX=RND( 3 ) : ONXGGTO480 , 49B .510 

213 IFS< >OTHE^GOTO220ELSE1F2=1TH.EISGOTO240ELSEO=1: GOTO230 

220 IFW(R,S+1 >' >0GOTO240 

230 X=RNBC 3 ") : ONXGGTO480 , 430 . 550 

240 X=RNDC 2 ) : ONXGOTO4S0 , 490 

2SO IFR=HORWCR+i f B)< >0THENGOTO290ELSEIFS< /OTHENGOTO2S0EL3EIF2=1THEN,GOTO280ELSEQ= 

L: GOT 0270 

260 IFWCR.S+DOBGOTO230 

270 X=RNDt 3 ) : ONXGOTO480 , 5 10 ,550 

280 X=RNDC2) :ONXGOTO480,510 

290 IFS< >OTHEMGOTO300ELSEIF2=1THENGOTO320ELSEQ=1 ; GOTO310 

300 IFWC. R,S+1X>QGOTO320 

310 X=RNDt 2 ) : O!MXGC~O480 , 550 

328 G0TO4SQ 

330 IFS-L=0ORW(R,S-1 X >8THENGOT04 1QELSEIFP=H0RUK R+ 1 ,S)< >0THENGOTO370ELSEIFS< >UTH 

ENGOTO340ELSEIF2=1THENGOTO3B0EL5EO=1 : GOT035B 

348 IFW(R,S+1 K >QGOTO360 

3S0 X=RND( 3 ) : ONXGQTO490 .510, 550 

360 X=RND( 2):ONXGOTO430,S10 

370 1FS< >VJTHENGOTO330ELSEIF2=1THEHGOTO400EL5EO=1 : GOTO390 

38B IFW(R,S + 1X >0GOTO400 

3S0 X=RND( 2 ) : ONXGOTQ430 , 550 

400 GOT 04 98 

410 IFR=HORW( P+ 1 , 5 '< >0THENGOTO440ELSEIFS< >UTHENGOTO420ELSEIFZ=1THENGOTO430ELSEO= 

1 : GOT 0500 

423 IFVK R,5+l X >0THLiSGOTO438ELSEX=RND( 2 ) : ONXGOTO510 , 550 

430 GOTO510 

440 IFS< >OTHENGOTC-'50FLSEIFZ= 1THENGOTO470ELSEQ=1 ; G0T04S8 

450 IFUKR.S+i X >0GOTO470 

460 GOTO550 

470 GOTOG00 

480 W(R- 1 , S") = C-C+l :'J( R- 1 . S ) -2 : R=R- 1 : 1FC-H*U+1THENGOTO610ELSEQ=0: GOTO200 

490 WtR,5+l )=C 

50B C=C+1:U(R,S+1 ) = l:S=S-l : IFC=H+U+ 1THENGOTO610ELSEQ=B : GOTO200 

5 10 W( R , S ) = C : CK> L : T^Ut. R , S )=0THEMGOTO528ELSEVK R , S J =3 : GOTQ530 

520 U(R.S)=2 

530 R=R+l 

540 IFC=H*U+lTHEHGCTObl0ELSrGO T O330 

550 IF0-iTHEhG0TO580EL5EW< R , S+ 1 )=C:C=C+1: IFUt R , 5 >=0THENGOTC5S0EL5EO< R , S ;-2 : G0T05 
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568 U(R,S)=L 

570 S=S+ I : IFC=H*V+ 1THENG0T06 10ELSEGOTO200 

580 Z= 1 : IFlM R , S )=0THENGOTO590ELSEUl R , S )=3 : Q=0 : GOTO600 

590 Ut R , S )= 1 -- G=0: R=l : S=l : GOTO190 

ESQ GOTO160 

610 D«=" u 

620 DS=INKEYS : IFD*= " " GOTO620 

630 F0RJ = 1T0U:PRINTCHR*(149); :FORI=1TOH:IFU( I, JX2THENPRINT" " ; CHR*( 149 ) ; :NEXT:E 

LSEPRINT" ";:NEXT 

640 PRINT:FORI=lTOH:IFVXI, J)=30RUC I , J)=0THENPRINTCHR*C 157 ) ; CHR»t 140); :NEXT:ELSEP 

RINT CHR*( 149);" " ; : NEXT 

650 PR1HTCHRSC 149): NEXT: PRINT' ANOTHER AMAZIN MAZE WILL FOLLOW SHORTLY: PRESS A K 

EY WHEN READY. B ; :GOT01 10 

5 

' *** BIORHYTHM CURUE PLOTTER. +*+ 

7 ' AUTHOR: BERNIE SIMSON, 18 BULLER TCE, CHELTENHAM 

8 ' STH AUST. 5014. PH 47 7528. 

9 ' NOTE: MINIMUM HARDWARE REQUIREMENTS: LEUEL i t , 4K RAM. 

10 CLS:PRINT^80, "THE THEORY OF BIO-RHYTHMS - : PRINTS144, " 



20 PRINT: PRINT "RESEARCHERS BELIEVE THAT FROM BIRTH, 3 DIFFERENT CYCLES START TOO 

PERATE IN YOUR BODY, CALLED BIO-RHYTHMS, WHICH INFLUENCE YOUR" 

30 PRINT "THOUGHTS, FEELINGS AND ACTIONS. KNOWING THE STATE OF THE 3 CYCLES 

(PHYSICAL, EMOTIONAL, INTELLECTUAL) AT GIVEN TIMES CAN" 

40 PRINT "PREPARE YOU FOR YOUR CHANGING MOODS." 

S0 PRINT-.PRINT" THE TRS-80 WILL PLOT YOUR 3 BIO-RHYTHM CURUES FOR YOU TO STUDY." 

: PRINT: INPUT "PRESS 'ENTER' TO CONTINUE" ;X 

80 CLS: INPUT "NAME OF PERSON TO BE ANALYZED"; PS 

100 INPUT - TODAY' S DATE CDD,MM,YY) ";TD,TM,TY 

110 IFTM<1ORTM>12GOTO160 

120 FORL=lTOTM--READMT: NEXT: RESTORE 

130 DATA 31,28,31,30,31,30,31,31,30,31,30,31,31 

135 IFTM=2IFTY/4=INT<;TY/4)MT=23 

140 IFTD>0ANDTD<=MTGOTO170 

160 PRINT* HA HA, UERY FUNNY. TRY AGAIN" : GOTO100 

170 INPUT"YOUR BIRTH DATE CDD,MM,YY) ";BD,BM,EY 

180 IFBM< 1OREM>12GOTO240 

182 D 1=TD+ ( TM+ 100 >+ ( TY« 10800 ):B2=BD+(BM* 100 ) + ( BY* 10000) 

184 IFD2>D1GOTO240 

190 FORL= ITOBM : READMT :NEXT : RESTORE 

195 IFBM=2IFBY/4=INTC BY/4 )MT=29 

200 IFBD >0ANDBD< =MTGOTO250 

240 PRINT" HA HA, UERY PECULIAR. TRY AGAIN" : GOTO 170 

250 D=TD : M=TM : Y=TY : GOSUB2000 : D 1 =DS 

260 D=BD : M=BM : Y=BY : GOSUB2000 : D2=DS 

278 D3=D1-D2+1 

280 P=D3-(INTCD3/23)+23) 

290 E=D3-C lNT*.D3/28)*28) 

300 I=D3-CINT(D3/33)+33 ) 

390 CLS 

400 F0RL=3T034: SET i.0,L): NEXT 

4 10 FORL=38ST0435STEP2: PRINT9L ,"-";■ NEXT 

415 PRINTS 12,** * * -;P*;"S BIO-RHYTHMS * • ♦" ; 

416 L1=12:F0RZ=1T011:L1=L1+G4 
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420 f r ORL=LlTOLl-»-40STEP13:PRINT@L ? " ! "; : NEXTL , Z 

466 F0RL=78BT033USTEP13: PRINT»L , CHR»C 91) ; : NEXT 

490 PR1NT*768,CHR*( 91); :PRINT£932, "TODAY" ; 

500 FORL= 1TOTM : REABMT : NEXT 

52Q F0RL=341T0B89STEP13:TD=TD+7 

54B IFTD>MTTHENTB=TB-tfT:TM=TM+l 

560 IFTM>12TM=i 

580 PRINT GL, TD ;"/" ;TM", 

B80 NEXT 

620 PR1NT$96L , "PHYSICAL" ; : FORL-20TO32 

B40 5F.TC L,46'J : NEXT 

B6Q PRINT99B2, "EMOTIONAL"; : F0PL=64T07GSTEP2 

S8S SET(L.46):fS£XT 

700 PRINTS 10B4, " INTELLECTUAL" ; : FORL=l 14T0 12SSTEP4 

720 SET(L,46 ) :NEXT 

743 C= 1 : F=23 : V = F : GCSUB250Q 

760 C=2:F=28:N--=E:QOSUB2S00 

780 C=3 : F =33 : N= I : GOSUB2500 



300 PRINTS 184, 'ACTIVE 

)\ 

920 PRINT@S32, n PAS5IUE 

2); 

84Q PRINT@>437,CHR$f 93): - CRITICAL"; 

36B GOTO8G0 

2000 ' CALC "DAYS FROM 1900° ROUTINE 

2020 Yl=Y:IFM<3Yl=Yl-i 

2030 DS=Y*365+INTr Yl/4 ;: IFM=1GOTO2050 

2940 FORL= IT OM- 1 : REflL'MT : DS=DS+MT -.NEXT : RE5T0RE 

2050 DS=DS+D:RETURIS 

2450 ' SINE CURUE ROUTINE 

2500 IN= . 28 : DC=360* . 0174533 : FORL= 1TO 102 

2520 IFC=3IFL^'5 = INTCL/5)GOTO2560ELSE2800 

25^0 IFC=21FL/2=INT( L/2 iGOTO25S0ELSE2800 

256B YC=SIN(N/F*DC)*15 

25S0 SETCL, 19- YC ) 

2600 N=N+ IIS: NEXT -.RETURN 



:PRINT@243, "STAGE"; : PRINTS 121 , CHRSt 91 ) ; :PRINT@313. CHRSf. 32 
i : PRINT $696, " STAGE " ; : PRINT@569 ? CHR*( 91 ) ; : PRINT@761 , CHR»( S 



RPPLICATION FORM 
To MICRO-8B, POEOX 213, GOODWOOD, SA 5034, Phone: 



(08) 381 SS42 



■end me : 

- CURRENT ISSUE % 2 . SB 

- CRSSETTE ONLY ! 3,56 

12 MONTH SUBSCRIPTION, MAGAZINE ONLY *24.0E 

- 12 MONTH SUBSCRIPT ION, MAGAZINE PLUS CRSSETTE $60.00 

- STRRT SUBSCRIPTION FROM F (Dec. 79 Issue 1; 

(.Make cheques payable to MICRO-80) 



NAME 



RDDRESS 



POST CODE 



Ml 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE (08)3818542 



i REM MKSSsSQR*-l."UALINSTR=PEEK+m~*GETet*U*N#FLOF^*DELETE+ FIX: EXP"PEEKEND_ 
ENDL0FC0Ss*r#q4p#MKS*CTRN~:EXP' v -0ENBL0F!IsA~ , 'MKS*DEFL0F ,, EXP~' J 6E' "RICH' 3" . 3C0S£U5RC 
DBLMK.S*£SQR' v ERR5TEP!IsR'"~#!8Se RlGHT*x2EXP~-lNKEYSRBS>ERR23e < TRON^" 4eLPRlNT2RBS"- 
2 CLS:PRINTCHRf(23); ■ 



*** INITIALIZING +**" 
3 Y=32256:Z=PEEK( 16548 )+PEEKC 16549 )*256+6 

5 F0RX=ZT02+223 : A=PEEKC X ) : B=B+R : IF R= 128THENR=0 : POKEY , R : Y=Y + 1 : NEXTX : ELSEPOKEY , R : Y 
=Y+1: NEXTX 
7 IFB< >27340THENCLS: PRINTCHRtC 23 ) ; " 



* * + CHECKSUM ERROR >■<* + * 



" : END : ELSEPOKE 16526 , 126 : POKE 16527 , 126 : X=USR( ) 

20 REM *** DRTR PROCESSING RND FILING SYSTEM *** 

30 ' *** BY EDWIN R. PRRY 39 FRIRUIEW GRU. HRCKHRM WEST 5163 *** 

40 CLS: PRINT" 

SELECT REQUIRED FUNCTION 



50 PRINT" 










1 


==> 


ENTER NEW DRTR TO FILE 




2 


==> 


SERRCH FILE FOR DRTR. 




3 


==> 


EXIT FROM PROGRRM. 




4 


= => 


EDIT FILE. 




5 


==> 


LIST RLL DRTR. 


60 PRINT" 









" :R=0:FG=0:H=0:PRINT&780, " " ; 
70 R*=INKEY*:R=R+1: 1FR*< >" "GOTO110 
B0 GOSUB250 : GOTO70 

110 IFR*> m G"ORRS< " 1"THEN76 ELSEB=URL( RS) : ONBGOTO120 ,310 ,540 ,560 ,670 
120 ' ** ENTER NEW DRTR ** 

130 CLS:PRINT"TYPE IN DRTR BEPRRRTED WITH COMMR* S , HIT <ENTER> RFTER EACH w GR 
OUP OF DRTR, THEN TYPE <ENTER> RGRIN WHEN " ; CHR»( 34 ) ; "RERDY" ;CHRt( 34 ) ; " RPPERRS 
ON THE SCREEN. 

140 PRINT "EXAMPLE : DRTR , DRTR , DRTR , DRTR <ENTER> - <ENTER> 

TYPE " ;CHR*C34);CHRt(92);CHR*C34); " TO STOP RNYTIME WHILE CURSOR IS BLINKING ! 

* * * ";MEM;" BYTES FREE. * * * 

=== RERDY TO RCCEPT DRTR ! \ ! ===== 

156 R=2 : BUFFER=325 1 1 : POKEBU , 136 : BU=BU+ 1 : POKEBU , 34 : PRINTCHRtC 34 ) ; : BU=BU+ 1 *- E=0 

160 G0SUB250 : R*=INKEYS : IFR»=" "THEN 160 

170 IFR=>250THENCLS: PRINT" *+* ERROR *+* ERROR *** ERROR *** ERROR *** 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE {08)3818542 



PFtGL 42 



-__=== UhTh FTELB TO LONG CRNNOT ENTER LRS1 CHRRRCTER ' !! ---== " : CLSF.GOTO LSO 

L3B FORC=0TQ300O:NEXT:GGSUB280 :GGTO130 

136 PRINTflfc; : G0SUB25S : R=R+ 1 : IFR* = " , - THENPOKEBU , 34 : BU-BU+ 1 : POKEEU, 44 : 0U=BU+i : PO 

KEEU , 34 : BU=BU+ 1 : PRINT CriR*( 3 ) ; CHRSt 3 A j : " , " ; CHR»C 34 ) ; : R-R+3 : GOTO i 60 

236 IFRt=CHR5( IB :>GOTQ40 

2 10 IFR*=CHRS( 13 ) THENPOKEBU , 34 : EU=BU+ 1 : POKEBU . 44 : BU-BU+ 1 : POKEBU , 34 : BU=BU+ 1 : o 0KEE 

U , R5C ("$-): BU-BU+ 1 : POKEBU , 34 : BU=EU+ 1 : POKEBU , 44 : A=Pn-6 : GOTO280 

226 IFR1 = CHR4i 3 'THENB'J=BU- 1 : PRINTCHRft(. 30 ) : : G0T016B 

238 POKEBU , RBCC R$ ' : BU=BU+ 1 : GOTO IBS 

243 ' # CURSOR* 

250 B=PEEK' 1G416''+PEEKC 1E4 17 ;*25&: E-E+l 

263 IFE >6RNlK PEEK., D .■ -950RPELKC D )=32 JTHENPOKEL , 136: E=B: RETURN 

270 T PEMBROKE! , 32 : E = 3 : RETURN 

273 RETURN 

2BQ ' *EJ°2 OF LINE* 

233 POKE 16405 , 3 : ROK E 1 652E „ B : POKE 1 3527 , 12S : X=UE>RC ) 

300 P0KE1E435 . 1 : MJ=°EEKt 32483 ^PEEKT 324B4 .^ 256: NUfc-STR^C NU ) 

302 t-PEEkl 32430 J+PEEKt 32^-3 1 )*25S : F0RG=2 T 0LZN( NU* ) : POKEX+G-Z . RSC i*IU*( NUS , G, I V) : 

NEXT 

385 GOTO I 30 

31 D r ** EE3RCH + * 

320' RESTORE : ClS : RER^lES : LE-UAL ( LE* ) : DIMBK LE ) : DII1C*C LE ) : ONERRORGOT0432 ; B*= v " : F 

3ZE F0RJ = lT0LE:RER2Lt< T ) i NEXT : GOSUB4S0 :RERiDW 
330 PRINT" 

TYPE ' ;CHR*(. 34 >;CHR*<.92);CHR*< 34); " TO 3T0P ! ! : 



ENTER DR^R TO BE SERRCHED FOR 



340 G05U325B : RS-II -IKEY* : IFRS= ' * G0T0340 

3^3 PR1NTRS.; : IFRS=CHRt( 13 'JTHEN^B EL5EIFR*=CHRS( 8 )THEN344 EL5EIFR$< >CHR*f 13;TH 

ENB*=BS+^$ : GOT0340 

3^3 GOT 035 P 

344 GOSUB6E0 : PRIMTCHR*( 3S ) ; : G0T0343 

3S0 N=8 : FOR J %= 1 t Ol_E : PEACES ( IX > : GOSUB80B : M=M+SS : NEXT J % : READH* : READR 

353 IFh=0THEM350 ELSErL=l 

41S CLS:FORJ=1T0l_E: FRINTCSt J ): " "; BSC J ) : NEXT : PRINT "BAT P. IS IN LINE : " : 'H ; 

4L2 IFFG=ITHENRETURN , v ^ 

420 PRINT" <<^. >>> CONTINUE 3ERRCH OR STOP^C/sV; 

421 R$-INKEYS-:GO5UB250 : IFR*= " THEN421 ELSEIFR*=" 0' THEN350 
^22 GOT 04? 

432 IFf ERR/Z w *.= 185;ESUHENEX1 

'^33 IF (ERR/2 j + 1 •■' > 4THEN450 

440 1FERL=350 THENRESUME508 

4513 D RINT'-^.*+- ERPOR ";i ERR/2 >+!,' IN LINE " ; ERL ; " ***'■■: ENB 

463 RERBC?. : IFCS-- *?■ " THENRETURNElSE4BQ 

3P3 CL5 : PR " ITT CHf?* ( 23 ) 

520 IFFL=!THENPRINT™ 



** RLL DRTP HRS BEEN 3ERRCNED * * " : ^OR J -QT 1 530 : NEXT : GOT 0320 
536 F'RTNT- 



MICRO-80 



^AGE 



43 



* » * DRTR MOT FOUND 1 \ * * *' : FORJ=0TO.l500 : NEXT : G0T0328 
540 CLS:END 



k : 



5561) ' *** EDIT FILL *** 

5Ba CLS:PPINT"TO DELETE OR EDIT FILES 5TOR THE PROGRAM AND EDI' 

ING THE EDIT COMMAND PROVIDED BY BASIC. 



'ATA LINES 



US 



IF YOU WISH YOU CRN ENTER DATA AND I WILL TELL YOU WHICH LINES 
570 PRINT "CONTAIN THE DRTR IN QUESTION. 



■==== ENTER DATA OR TYPE 



; CARS (92); " > ==~= 



585 B*=" " : 0NERR0PG0T0E3G 

590 GOSUB2S0 : R»=IMKEY»: PRINTS- ; : IFAS=CHR3K 1.0 >THEN40 ELSEIFfiS=CHRS( J 3 )THENG00 

ELSE1FA* = CHR*'. S)THENG0SUB66E : PRINTCHRSC 30 ) ; :GOTO5S0 ELSEB*=E$+AS : GOTOS90 
600 RESTORE : GOSUB460 : REFtDX 
610 RERDC»:IFC*=B*THENB20 ELSE610 
628 GOSUB460 : READX : PRINTX; : GOTO610 
630 IFERL=610 RND( ERR/2 S .« + 1 = 4THENRESUME650 
643 GOTO450 
650 PRINT" 

*** SEARCH COMPLETED ***": INPUT" TYPE ', ENTER > T 

CO-NT . * ; A$: GOT 0566 

660 BS=LEFT$< B$ , ( LENC BS ) - i ) > i RETURN 
' *** LIST ALL *** 

RESTORE : ONERRORGOTO730 : READLES-: LE=VAL( LES > : DIMB«( LE ) : FG- .1 
FOR J = HOLE : READCS( J 1 : NEXT : GOSUB4S0 : RERDX 

CLS:G0SUB751 : READAS: RERDX : PRIMTCHR*( 8) ; CHRfcf 8 M X ; " CONTINUE IYT1) ""; 
A*=INKEY$: G0SUE25B : IFA*=" "GOTO710 
IFA*= K Y"THEN7B0 ELSE40 
IFERL=7S1 AND< ERR/2 )+l=4RESUME40 
IF t ERR '2 ) + i = 1QRESUMENEXT 
GOTO450 

FORJ=l TOLE: RERDBftC 7 " : NEXT! : GOTO410 
FORSS=lTOLEN(Bt(. JV.) )-LENCBft j + 1 
IFB*=MID*( E*t J 2 J , SS . LENC B* > JRETURN 
NEXT : SS=0: RETURN 
REM*** DRTR STARTS HERE *+* 
DATA n 4" . "MEMORY LOCATION : " , 'FUNCTION : ■' , "CALL SEQUENCE : " . "COWMEN 

■ , "& n , 1000 
DATR"0000-0iD8" , "SYSTEM I NIT. I/O SUBR.","N.R 
DATA'01D9-03E2* . "CASSETTE 3UER. ' , "N. R .","",* §»' 
DATA "93E3- 0457" , -KEYBOARD DRIVER", "N . R. " , " " , "« 
DAT R- 0456 -aSSC" , "UIDEB DRIUER" . "N . R. " , " " , "® " 
DRTR n 055D-673" , "LPRINT DRIVER" . 'N.ft. ■* , "" , "$" 
"INITIALIZE" ,"M.R. ","",-•" 
'•FLOATING POINT NRTH*. U N.A, 

"TABLE LEU I I ENTRY POINTS ". *H. R .", n ","*". 1080 
"TRBLE BASIC COMMANDS ' 



670 
5B0 
BS0 
700 
710 
720 
730 
740 
750 
751 
860 
805 

ei0 

f'sse) 

1-000 

TS : 
1010 
1020 

1030 
1040 
1050 
1060 
107B 
10B0 
L090 

1100 


1110 DRTR" 
AM BE USEl 
1129 DRTR- 



@" , 1010 



DATA "0674 
DRTR"070E 



DRTR' 
DATA' 

DATA' 



070ft'' 

lseT" 

1608- 1E4F" 

1650-iS20 v 
1B21-191C" 



■ , 1020 
»" , 1630 
1040 

' , 1050 

10G0 

■>■',"©', 1870 
* H . R . " , n " , " * " 
• , "$- ,1090 



TRELE OF JUMP ADRS . FOR BASIC COMMANDS. "," N . A. 



3000- 

* , " ?■ ' 
37DE- 



J7DD" , "RESERUED FOP DMA DEVICES" , "N. A. " , 
1 ) 19 
"DOS COMUNICATION ADRS" , " : , " " , *@° , 1120 



"THIS 



>ACE IS 



", "(?-V 110 
FREE AND C 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE {08)3818542 



iET2 MRCHINE LRNGURGE FOR LEVEL.2 BfiSIC *** 



PRGE 44 



42EF" 


ED 


! J 


DO 


7E 


31 


FD 


7E 


F5 


cs 


D5 


E5 


CD 


SD 


7E 


2R 


ft 4 


42FF- 


43 


SE 


23 


56 




4E 


T'Ci 


46 


EB 


7E 


23 


BS 


2B 


20 


F2 


03 


43PT 


03 


3R 


EB 


7E 


ES 


16 


88 


5F 


1 Q 


11 


Bft 


33 


13 


EB 


El 


73 


431F : 


23 


72 


T* 'Z' 


71 


33 


7 


23 


EB 


43 


E3 


7E 


36; 


E0 


7E 


4F 


06 


432F 


30 


EB 


21 


1 I 


7E 


ED 


B9 


EE 


06 


05 


22 


F0 


7E 


36 


20 


23 


433F- 


10 


FE 


06 


83 


36 


80 


23 


18 


FE 


22 


F9 


40 


i-i— 


F3 


40 


22 


434^ 


■ FD 


40 


El 


Dl 


CI 


Fl 


ED 


7B 


DB 




C3 


CC 


06 


06 


02 


21 


43SF 


FF 


7E 


Tp 


2^ 


?3 


FE 


40 


20 


F9 


78 


32 


E0 


7E 


C9 


D9 


~tw 


436F 


C3 


32 


w>-_i 


4 


21 


96 


7E 


22 


34 


40 


RF 


32 


D3 


7E 




BR 


43?F 


?e 


32 


DR 


7 cr 


39 


C3 


CD 


E3 


03 


F5 


3P\ 


D6 


1 u. 


E7 


20 


0R 


43SF 


: Fl 


rr 


Mp. 


C8 


3E 


01 




BE 


1 i_ 


F5 


f \ 




D5 


21 


Di 


7F 


439F 


ED 


'~-E 


u9 


7E 


L cj 


13 


7B 


FE 


H7 


L'4 


C4 


7E 


^E 


EB 


S3 


*"i~ 


43RF 


?E 


Di 


r - \ 


f "l-l 


EE 


21 


D3 


7E 


RF 


77 


23 


.' f 


23 


77 


-. '1 


El 


43BF 


C3 


52 




4F 


3 j 


3S 


30 


RTj 


SS 


80 


60 


30 











*«* Sc. '2 MACHINE LRMGUftGE FOR BISK BRSIC *■** 



SR2R ' 


ED 


73 


DD 


Bl 


31 


FD 


EE 


F5 


C5 


D5 


E5 


CD 


6D 


BE 


en 


ft 4 


6R3R 


40 


SE 


O O 


56 


-}*? 
^ _/ 


4E 


23 


46 


EB 


7E 


23 


36 


2E 


20 


F2 


03 


6R4R 


S3 


3R 


E2 


BE 


E5 


16 


8B 


5F 


13 


LI 


0R 


80 


13 


EB 


El 


I -li 


EA5R 


23 


72 


23 


71 


23 


70 


23 


ED 


43 


E3 


BE 


3R 


E0 


BE 


4F 


06 


6R6R ■ 


80 


EB 


2 1 


FF 


BE 


EB 


B0 


EB 


3S 


05 


22 


E0 


BE 


36 


20 


~yz* 


BR7R 


10 


FB 


06 


03 


36 


80 


23 


10 


^E 


22 


F3 


40 




FB 


40 


22 


6R8R 


FB 


40 


El 


Dl 


CI 


Fl 


ED 


7E 


DD 


BE 


C3 


/- r- 


06 


0G 


02 


7 1 ' 


SR9R 


: FF 


EE 


7E 


04 


23 


FE 


40 


2B 


F9 


78 


32 


E0 


BE 


C3 


D3 


3E 


GRRR 


C3 


-ft— 


33 


40 


21 


3b 


BE 


22 


34 


40 


RF 




D9 


EE 


32 


DH 


SftBR 


BE 


32 


D6 


BE 


D3 


C9 


CD 


E3 


£3 


F5 


3R 


D8 


BE 


B7 


22 


0R 


68 CR 


P" * 


FE 


3D 


Cm 


3E 


01 




D8 


BE 


F5 


Fl 


ES 


D5 


21 


Di 


BE 


BRDR 


EB 


SB 


D9 


EE 


13 


i T 


7B 


FE 


37 


D4 


C4 


EE 


7E 


ED 


C 1? 


D9 


GRER 


BE 


Dl 


El 


C3 


EE 


21 


D6 


BE 


RF 


77 


23 


77 


23 


77 


5F 


EL 


RRFR 


C2 




CC 


^E 


33 


30 


3Q 


0B 


30 


80 


B0 


SS 
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Q0100 ;SET2 BY E.R.PRRY UER 2.0 

SB 110 :THE FOLLOWING LINES WILL INITIALIZE SET2 FOR USE WITH BASIC 



7DDE 
7DDE 
7DE1 
7BE4 
7DE7 
7DE3 
7BEC 
/ 7DF0 
7DF3 
7DF7 



21FA7D 
3AC441 
32G97F 

320^4 1 

ED5EC54 1 
22C541 
EDS36A7F 
C3CC0S 



7DFA 

7DFE 

7E01 

7E02 

7E03 

7E84 

7E0? 

7E08 

7E0S 

7E0A 

7E0B 

7EOC 

7E0D 

7E3E 

7E0F 

7E10 

7E12 

7E14 

7E16 

7E19 

75 IE 

7E1C 

7E1TJ 

7E1F 



EB73EA7F 

31D47D 

F5 

7E 

B7 

C2647F 

C5 

D5 

ES 

23 

23 

23 

23 

23 

7E 

FE33 

2814 

FES2 

2803 

C3617F 

23 

7E 

FEDF-, 

C2CL7F 



00120 

00130 

38132 
B8134 
06136 
00138 
00 MS 
00 130 
B01G0 

00170 
00180 

SB190 

00200 

30210 
00220 
00230 
00240 
80250 
90260 
B0270 
00280 
0023B 
003B0 
09310 
90322 
0033B 
00340 
90350 
003S0 
30370 
B0 3 80 
00330 

00400 

00410 
00420 
00430 
0044S 
00450 
30450 
00470 
00480 
00430 
08500 

00510 

0052Q 
00530 
00540 
00550 
00560 
00570 
00580 
00530 
90600 
00S10 

00F.?r- 



ORG 7DDEH 
INIT LD HL,STAR"! 

LD f»,(41C4H) 

LD CUECTP0),fl 

LD A.0C3H 

LD (41C4H),A 

LD DE,(41C5H) 

LD C41C5H),HL 

LD (UECTR1>,DE 

JP 6CCH 
THIS PROGRAM RLLOWS THE USER TO DRAW GRRPHIC LIMES 
BETWEEN TWO POINTS ON THE SCREEN POINTED TO BY X1,Y1 PND 
X2,Y2 THROUGH THE USE OF R HEW COMMRND, 

THE SYNTRX OF THIS COMMRND IS : SET<URR1 „ URR2 , UAR3 , URR4 > 
OR RESET< URR 1 , URR2 , UAR3 , UAR4 > . 

WHERE URR IS ANY INTEGER UARIABLE ALLOWED UNDER EASIC TT 
IS PREFFERED TO USE R DEFINT STATEMENT FOR RNY UARIAELES 
USED BY THE NEW SET/RESET COMMRND. 
OTHER THINGS TO BE CONSIDERED ARE: 

CD-PUT THIS COMMRND IN R LINE BY ITSELF AND MOT IN R 
MULT I -STATEMENT LINE. 

(2)-D0 NOT PUT ANY BLANKS BEFORE OR IN THIS LINE, 
f. 3)-URRl,URR2 MUST BE ONE X,Y PR1R RND URR3.VRR4 THE OTHER 
14 5-THIS COMMRND DOES NOT WORK RS R DIRECT STATEMEN" . 
C5J-IF THE ABOUE RULES RRE NOT ADHERED TO A SN ERROR WILL 
BE GENERATED. 

TO USE THIS PROGRRM FROM DISC TYPE "LORD 3ET2* THEN 
"BASIC- ANSWER THE MEM SIZE ? WITH : 32222 ( 1BK) AND THEN 
USE THE SYSTEM COMMAND TO INITIALIZE "SET2" BY ANSWERING 
THE " *? " WITH " Z32222. 
HRPPY DRAWING ' 



STAR" 



LP4 



RSETPP 



LD 

LC 

PUSH 

LE 

OR 

;p 

PUSH 
FUSH 

PUSH 
INC 
INC 
INC 

use 

INC 

LD 

CP 

JP 

CP 

TR 

JP 

IMC 

LD 

CP 

JP 



CBUF+9),< 

5P,INIT-. 

AF 

R , t ML ) 

R 

NZ.RETRN 

BC 

DE 

HL 

HL 

HL 

HL 

HL 

HL 

R .. ( HL ) 

33H 

2, SET PR 

82H 

Z,RSETPR 

RETN 

HL 

A , ( HL '; 

BD6H 

NZ.RETN 



:SRUE SP 
;SET NEW 



R=0 



PROGRRM IS RUNNING 



SAME REG' S 



; BYPASS LMUM & LPOINT 



;IS 


IT "SET" ? 




;IF 


IT IS GOTO 


SETPR 


; IS 


IT " RESET * 


7 


;IF 


IT IS GOTO 


RSETPP 


;IF 


NOT RETURN 


TO BAS 



GET NEXT BYTE 
IS IT ' <' ? 
IF NOT RETURN 



IC 



TO BASIC 



MICRO-80 



7E22 RF 


00630 


XOR 


R 


7E23 32ES7F 


00640 


LB 


(BUF +8), ft 


7E2S 188C 


60650 


JR 


BP4 


7E23 23 


006S0 SETPR 


IMC 


Ri- 


7E29 7E 


09670 


LD 


ft , ( HL ) 


7E2R FED8 


00680 


CF 


0D6H 


7E2C C2617F 


00690 


Jp 


NZ,RETN 


7E2F 3E30 


00701? 


LD 


R, 129 


7E31 32E37F 


007.10 


LD 


CBUF+B) ? ft 


7E34 23 


00720 BP4 


INC 


HL 


7E35 CD0D26 


00730 


CALL 


260DH 


7E38 23 


00740 


INC 


HL 


7E33 LA 
( ■ J '.7E3r3.3ZE27F 
< 7E3Q CDQD26 


00 7 50 


ld 


R , C DE i 


0076B 


LD 


f BUF + 1 ),R 


00770 


CALL 


260BH 


7E43 23 


0078S 


IMC 


HL 


-~ 7E4 1 I ft 


30790 


LD 


A , ( DE ) 


/-7E42 32E47F 


00600 


LD 


CBUF + 3KFI 


7E45 CD0D26 


00310 


CALL 


280DH 


7E48 23 


00820 


INC 


HL 


7E43 ia 
' "7E4R 32ED7F 


00833 


i_D 


R , C DE J 


00840 


LD 


CBUF+121.P! 


7E4D CD0D26 


0085G 


CRLL 


2B3DH 


7 ESQ 1ft 


00860 


LD 


R , C DE ) 


7E51 32EF7F 


00370 


LD 


(BUF+14) f R 


7E54 7E 


00380 


LD 


R , ( HL ) 


7E55 FLD4 


00830 


CP 


0D4H 


7E57 C2B17F 


00900 


JP 


NZ,RETN 


7ESR 23 


00310 LP3 


INC 


HL 


7E5B 7E 


00920 


LB 


R , C HL i 


7L5C B7 


00930 


OR 


R 


7E5D 23FB 


00940 


JR 


N2,LP3 


7E5F Fl 


00950 


POP 


RF 


7EG0 E5 


00960 


PUSH 


HL 


7EG1 3EQ0 
> ~" 7E63 32E17F 


009" 7 


LD 


R,S 


0098G 


LD 


( BUF ) , R 


7ES6 32E37F 


00980 


LD 


( EUF+2 ■) , ft 


7EB3 32EC7F 


01000 


LD 


CBUF+11 Kft 


7L6C 32EE7F 


31010 


LD 


CBUF+L3>,ft 


7E6F 2RE17F 


01S20 


LD 


HL , ( BUF ) 


7E72 ED5BEC7F 


01030 


LD 


DE, CBLir + i 1 ) 


7E76 B7 


01040 


OR 


R 


7E77 ED52 


01050 


SBC 


HL,DE 


7E73 3G1B 


01060 


JP 


CCNT0 


7E7B 2RE"l7F 


01070 


LD 


HL , C BUF ) 


7E7E ED53EI7F 


01080 


LD 


( BUF -? , DE 


7E82 22EC7F 


1090 


LD 


CBUF+11 ),HL 


7E85 2ftE37F 


01100 


LD 


HL, (PtJF+2) 


7ES8 ED5BEE7F 


01 1 10 


LD 


BE, (BUF +13 j 


7E8C 22EE7F 


0112Q 


LD 


CBUF+13>,HL 


7B8F EB53E37F 


0113Q 


LD 


(B1JF+2),DE 


7E93 2REC7F 


01140 CIST0 


!_D 


HL, CBUF+11 ) 


7E96 ED5BE17F 


01150 


LD 


DE , ( BUF 1 


7E9R B7 


01 180 


OP 


ft 


7F9B EDS 2 


01170 


SBC 


HL , DE 


7E9B 23 


1 1 80 


liiC 


HL 


7E3E BE 


11 90 


PUSH 


|— ■ ■ 


7E9F 2RE37F 


0.1700 


LD 


ML, ( PL r +2) 



; "SET/RESET' FLRC = OFF 



;SftME RS ABOUE 

; ■SET/RESET" FLftG - ON 

i GET xi 

;RDUANCE PRST COMMA 
;PUT XI IN R REG. 
■.LORD XI INTO BUFFER 
; GET Y 1 



; GET X2 



;get y; 



; IS LRST BYTE ' >' 

; IF NO^" PRINT 3N ERROR 



;FIND END OF LINE 

; REMOTE OLD HL FROM STRCK 

;PUSH NEW HL ON STACK 



:CLERR BYTES IN BUFFER 



GET XI 
GET X2 
RESET CY FLftG 

; IF XK.X2 GOTO CNT0 
; EXCHANGE X1.Y1 
;WITH X2.Y2 
; SOT HAT XK.X2 



;DX=X2-X1 

: CORRECT DX 
; STORE DX 
;GET Yl 
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7ER2 
7ERS 
7ER7 
7ER9 
7ERB 
7ERC 
7ERD 
7EHE 
7EBQ 
7EB1 
7EB2 
7EB3 
7EB5 
7EB7 
7EBQ 
7EBB 
7EBB 
7ECQ 
: 7EC3 
7EC4 
7EC6 
7EC7 
7ECR 
7ECE 
7EE0 
7ED1 
7ED4 
7EDE 
7ED9 
7EDD 
7EDE 
7EE0 
7EE3 
7EE7 
7EER 
7EEC 
7EEE 
7EF1 
7EFS 
7EFG 
7EFS 
7EFR 
7EFC 
7EFF 
7F01 
7F84 
7F97 
7F0Q 
7FSB 
7F8F. 
7F16 
7F12 
7F16 
7F19 
7F1D 
7F1E 
7F20 
7F22 



ED5BEE7F 

B7 

ED52 

3005 

19 

EB 

B7 

EDS 2 

23 

Dl 

B7 

ED52 

3819 

19 

3RE97F 

CBB7 

32E97F 

22F57F 

5C 

2606 

EB 

CD6C7F 

EE43E77F 

1817 

19 

3RE97F 

CBF7, 

32E97F 

EB53E77F 

5R 

1606 

CDSC7F 

ED43E57F 

3RE97F 

CB77 

2B1B 

2RE37F 

ED5BEE7F 

B7 

ED52 

3811 

280F 

3RE57F 

ED44 

32E57F 

3REE7F 

2F 

32EB7F 

3RE97F 

CB77 

2022 

ED4BE57F 

2RE37F 

ED5EEE7F 

B7 

EB52 

3009 

110001 



01218 Ltl 
1 220 OR 

01238 SBC 
0124E JR 

01250 ADD 

01268 EX 

31270 OR 

81280 SEC 
0129B CNT2 INC 

01380 POP 

Q1310 OR 

01320 BBC 

01238 JR 

81340 flDD 

01350 LD 

01360 RES 

01370 LD 

01380 LD 

01390 LD 

01400 LD 

01410 EX 

01420 CRLL 

81430 LD 

01440 Jp 
01453 CNT3 RDD 

81 460 LD 

01470 SET 

01480 LD 

01498 LD 

81508 LD 

01518 LD 

01520 CRLL 

O1530 LD 
81540 CNT4 LD 

81550 BIT 

01560 JR 

31570 LD 

01580 LD 

01590 OR 

01S0Q SEC 

81618 JR 

01620 JR 

81638 LD 

01640 MEG 

01650 LB 

01660 LD 

81670 CPL 

01680 LD 
0169Q CNT5 LD 

9170B BIT 

01710 JR 

01728 LD 

0173S LD 

81740 LD 

81750 OR 

S176e SBC 

01773 JR 

01 78E LD 



DE. (EUF+13) 

R 

HL r DC 

NC,CNT2 

HL,BE 

DE,HL 

R 

HL P DE 

KL 

DE 

R 

HL,DE 

C,CNT3 
HL,EE 

R,(BUF+3) 

6,R 

(. BUF+8 ),R 

f BUF+4),HL 

L,H 

H,0 

DE,HL 

DIU 

C BUF+S) ? BC 

CNT4 

HL,DE 

R, (BUF+8) 

B,R 

r. BUF+8 ) , R 

(BUF+6 J.DE 

E,D 

D,0 

DIU 

CEUF+'; ),BC 

fi,( BUF+8) 

B,Fi 

2 , CNT5 

HL.CBUF+2) 

DE,(BUF+13) 

R 

HL,DE 

C , CNT5 

Z.CNT5 

R, (BUF+4) 

(BUF+4),R 
R,(BUF+5) 

(BUF+5) f R 

R, C BUF+8) 

6,R 

NZ,XSTEP 

BC, CBUF+4) 

HL,(BUF+2) 

DE f (EUF + 13) 

R 

HL,DE 

NC , CHT6 

DE. leSH 



;GET Y2 
;DY=RES(Y2-Y1 ) 



; CORRECT BY 
;CET BX 



;IF DX>DY G0TOCNT3 
; RESTORE DY IN HL 



: RESET X/Y FLRG CY COUNTS 
;LORD DY IN BUFFER 

5DEFSNG DY 
;PREP. FOR DIUISION 
;CRLCULRTE DX 
;LORD DX IN BUFFER 



;SET FLRG BYTE 

;SET X/Y FLRG (X COUNT) 

:LORD DX IN BUFFER 

:DEFSNG DX 

;LORD BY IN BUFFER 



BYPRS5 IF COUNT= v f DY>DX) 
GET Yl 
GET Y2 



2' S COMP . DY 

RS Y1>Y2 RND 

Y MUST TRRUEL 

IN NEGATIVE DIRECTION 



BET UP COUNT 
GET Yl 
GET Y2 



;IF Y2<Y1. Y=NEG. GOING 
;Y STEP =1 
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7F2S 
7F23 
7F2E 
7F2E 
7F32 
7F34 
7F38 
7F3B 
7F3F 
7F40 
7F41 
7F44 
7F45 
7F4B 
7F4C 
7F4D 
7F50 
JTS3 
7FS7 
7F53 
7F5B 
7F5D 
7F5E 

7F61 
7F62 
7F63 
7F64 
7FS5 
7F6° 
7F6R 

7F6C 
7FBF 
7F70 
7F71 
7F72 
7F7C 
7F76 
7F73 
7F79 
7F7A 



7F7C 
7F7F 
7F8i 
7F63 
7F8B 
7F87 
7F38 

7F8B 
7FSC 
»i7FBD 
7F8F 
7F3B 
7F33 



ED53E57F 

1814 
1100FF 

ED53E57F 

180B 

ED4BE77F 

110001 

ED53E77F 

04 

D9 

CD7C7F 

DS 

2AE17F 

ED5BE77F 

19 

22E17F 

2RE37F 

ED5BE57F 

19 

22E37F 

10E3 

El 

C3097E 

El 

Dl 
CI 

Fl 

ED7SEA7F 
00 
0000 

010100 

7A 
B3 

C3 

010000 

B7 

ED52 

DB 

03 

18F9 



3AE47F 

0680 

0E03 

CDDC7F 

81 

37 

21003C 

78 
B7 
2808 

1 14000 
13 



01790 

01800 

01810 

01820 

1 83S 

01340 

SI 850 

018S0 

01300 

31310 

01320 

0133B 

01940 

01950 

01980 

91970 

01380 

S1930 

0Z00G 

02310 

02020 

32030 

02040 

02050 

02060 

32070 

02080 

02033 

0210E 

92 1 1 

02120 

82130 

02140 

32150 

Q2 180 

32170 

02130 

02130 

02200 

02210 

02220 

S2230 

02240 

02250 

02260 

02275 

02280 

G2230 

02300 

92310 

02320 



CNTG 



XSTEP 



CNT1 
CNT1A 



LB 
JR 

LD 

LD 

JR 

LB 

LD 

LD 

INC 

EXX 

CALL 

EXX 

LD 

LB 

ADD 

LD 

LD 

LD 

ADD 

LD 

DJNZ 

POP 

JP 

POP 

POP 

POP 

RETRN POP 

LD 
UECTR0 DEFF 
vECTP.l DEFW 

DIU LD 
LD 
OR 
RET 
LD 

LP2 OR 
SBC 
RET 
INC 
JP 

;THE FOLLOWING 



RETN 



CBUF + 4:- .DE 
CNT1 

DE,0FF0BH 

LEUF+4) ,BE 

CNT 1 

BC, C.BUF+6) 

DE, 100H 

kBUF+e\DE 

B 

SET 

HL , C BUF ) 

DE, (BUF +6) 

HL.DE 

C BUF ) , HL 

HL, (EUF+2) 

DE, CBUF+4^ 

HL,DE 

CBUF + Z),.HL 

CNT1A 

HL 

LP4 

HL 
DE 
EC 
AF 



, < BUF+h) 



; COMMAND DOES 
SET LB 

LD 

LB 

CALL 

ADE 

LD 

LD 



0233O 
02340 
82350 
02360 
02370 
32380 LPO 



LD 

OR 

JR 

PUSH 

LE 

ADD 



BC, 1 
A ; D 
E 
2 

BC,8 
A 

HL,DE 
C 

BC 
LP2 

SUBROUTINE DOE? 
UNDER BASIC 
A, CBUF+3) 
B,0 
C,3 
SUBTR 
A,C 
D,A 
HL,3C00H 

A,E 

A 

2,BP0 

DE 

DE,64 

HL,DE 



;V STEP - -1 

: COMES HERF IF DY >PX AND 
;Y1>Y2 '.NEC. GOING Y) 
:SET UP COUNT 
:X STEP =1 



;GE^ X 
; GET DX 
;NEXT X 

;GET Y 
;GET BY 

:NEXT Y 

i LOOP IF NOT DOME 

; CHECK NEXT LINE BEFORE 
; RETURNING 



; RESTORE REG' S 

; RESTORE SP 

: CARRY ON WITH BASIC PROG 

;TO BE FILLED WITH BASIC 

; RETURN ADDRESS 



;HL == UALUE 

;DE - QIUISOP 
; DONE 

;BC = QUOTIENT 
;LO0P UNTILL DONE 
"HE SAME RS A SETf.X,Y) 

; GET Y 

: RESET COUNTER 

;C=D1UIS0R 

; GET REMAINDER 
;D=Y REMAINDER 
;SET HL TO 9TRRT OF OID. MEM 



;S4 BYTES PER LINE 
;S4 * HL 
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7F94 10FD 

7F96 Dl 

7F37 0600 

7F99 0E02 

7F9B 3RE27F 

7F9E CDDC7F 

7FR1 81 

7FFl2 SF 

7FR3 48 

7FR4 0600 

7FRB 09 

7FR7 3EQ1 

7FR9 42 

7FRR &4 

7FRB 05 

7FRC 2806 

7FRE CB27 

7FB0 CB27 

7FB2 U3FA 

7FB4 LC 

7FB5 ID 

7FB6 2802 

7FBB CB27 

7FBR F680 

7FBC 4F 

7FEB 7C 

7FBE F53C 

7FC6 EG3F 

7FC2 57 

7FC3 7E 

7FC4 FE80 

7FC6 3002 

7FC8 3680 

7FCR 3RE37F 

7FCD CB7F 

7FCF 2S04 

7FB1 79 

7FD2 BG 

7FD3 77 

7FB4 C9 

7FD5 79 

7FBG 2F 

7FD7 RG 

7FB8 F6B0 

7FDR 77 

7FDB CS 

7FDC 91 

7FBD D8 

7FBE 04 

7FDF 18FB 
000F 
7DDE 
00000 TOTRL 



02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
32470 
02460 
02490 
02500 
02510 
02520 
02530 
02548 
02550 
025GG 
0257Q 
025S0 
02590 
82600 
02610 
02S20 
02630 
0264B 
02650 
32660 
02S70 
02683 
02690 
02709 
327 10 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
3279G 
02800 
02810 
02320 
32830 
8284Q 
02850 
02S6S 
02870 
028B0 
02890 
02306 
ERRORS 



BP0 



lp: 



BP1 



BP2 



BP3 



RE5ET 



SUBTR 



BUF 



DJNZ 


LP0 


POP 


DE 


LB 


B.0 


LD 


C,2 


LB 


R,(BUF + n 


CRLL 


SUBTR 


ADD 


Fl.C 


LB 


e,r 


LD 


C,B 


LB 


E,0 


RDB 


HL,BC 


LB 


R,l 


LB 


B,D 


I NC 


B 


DEC 


E 


JR 


Z,BP1 


SLR 


R 


SLB 


R 


DJNZ 


LP1 


INC 


E 


DEC 


E 


JR 


Z , BP2 


SLR 


R 


OR 


B3H 


LB 


C f R 


LD 


R,H 


OR 


3CH 


RNB 


3FH 


LB 


H,R 


LB 


R , C HL) 


CP 


30H 


JR. 


HC , BP3 


LB 


C HL ) , B0H 


LB 


ft, ( BUF+8) 


BIT 


7, Pi 


JR 


Z, RESET 


LB 


R,C 


OR 


C HL J 


LD 


C HL) . R 


RET 




LD 


R ? C 


CPL 




RND 


CHLj 


OR 


80H 


LB 


CHL; , R 


RET 




SUB 


C 


RET 


c 


INC 


B 


JP 


SUBTR 


BEFS 


15 


END 


INIT 



E=X REMRINDER 
PREPRRE FOR - 
16 BIT RDD 
HL POINTS TO VIDEO BYTE 

;GET Y REMRINDER 
;SET FLRGS 

;SKIP IF ZERO 



;GKIP IF X REMRINDER = P 



STORE GRRPHICS BYTE 
MRKE SURE THRT HL WILL 
RLWRYS STRY WITH1H 
MIDEO MEMORY 
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***** BMON - PRRT 1 ***** 

75C4: 0D 48 45 58 2E 20 41 44 44 52 45 53 53 20 3F 20 

75D4: 03 CD C9 01 21 C<* 75 CD 7B 72 CD 13 7ft 3E 0D D5 

75E4: CD 33 00 7C E6 F0 CD 4F 77 7C E6 0F CD 4F 77 7D 

75F4: EB F0 CD 4F 77 7D E6 0F CD 4F 77 3E 20 CD 33 00 

7604: 3E 3C CD 33 00 7E E6 F0 CD 4F 77 7E EB 0F CD 4F 

76 L4: 77 3E 3E CD 33 0B 3E 20 CD 33 00 Dl 06 02 1 1 3D 

7624: 72 D5 CD 49 00 Dl FE 0i Cft 63 72 FE 08 28 RE FE 

7634: 0ft 20 03 23 18 ft7 FE 36 38 E7 FE 58 28 36 FE 5E 

764 4: 20 33 2B IS 38 FE 47 30 D8 D5 CD 33 00 Dl 12 13 

7654: 10 CF 11 3D 72 1R 13 D6 30 FE 10 3e 02 D6 07 CD 

7664: 9Fi 76 4F 1ft D6 30 FE 10 38 02 D6 07 81 77 23 C3 

7674: El 75 21 C4 75 CD 76 72 06 04 3E 20 CD 33 00 21 

7684: E6 41 CD F9 79 06 02 21 ES 41 56 23 5E 7ft 18 13 

7694 : FE 3ft 30 0E D6 30 CB 27 CB 27 CB 27 CB 27 C9 D6 

76ft4: 37 13 F3 CD 94 76 57 7B FE 3ft 30 0B D8 30 82 57 

76B4: 23 D5 IB D6 El 6C Dl 62 E9 D6 37 IS F 1 



774D: C4 76 FE 18 D4 63 77 FE 0ft 30 08 C6 30 D5 CD 33 
775D: 00 Dl C9 C6 37 D5 CD 33 00 Dl C9 CE 3F CB 3F CE 
776D: 3F CB 3F C9 2ft 



7975: ftC 78 53 54 41 52 54 20 45 4E 44 20 20 45 4E 54 

7989: 52 59 2S 4E 41 4D 45 20 3F 0D 00 54 53 50 45 20 

7999: 3C 20 42 52 45 41 4E 20 3E 20 54 4F 20 53 54 4F 

73R5: 50 20 44 55 52 49 4E 47 20 43 4 1 53 53 45 54 54 

79E9: 45 20 49 2F 4F 2E 0D 00 CD C9 01 21 7E 79 CD 76 

73C9: 72 IB 57 CD 49 00 FE 01 Cft 63 72 FE 08 28 0E FE 

79D9: 30 38 FQ FE 47 30 EC CD 33 00 77 23 C9 5F 78 FE 

79E8: 04 7B 30 DF 2B 04 CD 33 00 18 D8 06 04 21 32 72 

79F9: CD CC 79 10 FB C9 7E 23 CD 94 76 4F 7E 23 FE 3ft 

7ftS9: 30 04 D6 33 18 02 DB 37 81 C9 CD F4 79 21 32 72 

7ft 13: CD FF 79 57 CD FF 79 5F EB C9 CD 13 7ft 22 3F 72 

7ft29: 3E 20 CD 33 00 CD 33 00 CD 13 7ft 22 41 72 3E 20 

7ft39: CD 33 00 CD 13 7ft 22 43 72 3E 20 CD 33 00 CD 33 

7ft49: 00 06 06 21 45 72 CD 49 00 FE 01 Cft 63 72 FE 0D 

7ft59: 28 0D FE 03 28 32 77 23 CD 33 00 10 E9 18 86 3E 

7ft69: 20 77 23 18 FC 3E 0D CD 33 00 21 94 79 CD 7B 72 

7PI79: 2ft 41 72 ED 5E 3F 72 B7 ED 52 23 11 80 00 06 00 

7ft39: B7 ED 52 33 11 04 18 F8 5F 78 FE 06 7B 30 B7 CD 

7ft99: 33 00 2B 04 18 B0 19 7D 32 26 72 21 45 72 ftF C5 

7ftft9: CD 12 02 CD 37 92 Cl 3E 55 CD 64 02 C5 06 06 7E 

7ftB9: 23 CD 64 02 10 FS 2ft 3F 72 Cl 78 B7 28 3B CD 56 

7RC9: 72 3E 3C CD 64 02 7B CD 64 02 7D 57 CD 64 02 7C 

7ftD9: CD 64 02 82 57 3ft 40 38 E6 04 20 2ft 7E 23 CD B4 

7ftES: 02 ID 20 EF 82 CD 64 02 IE 80 16 00 10 D0 E5 ED 

7ftF9: 5B 41 72 B7 ED 52 30 0E El 16 00 3ft 26 72 06 01 

7B09: B7 28 03 5F 18 B8 2ft 43 72 3E 78 CD 64 02 7D CD 

7B19: 64 02 7C CD 64 02 CD F8 01 C3 63 72 42 41 53 48 

7B23: 43 20 4D 4F 4E 49 54 4F 52 20 42 59 20 45 2E 52 

7B39: 2E 50 41 4 1 59 20 28 43 29 20 31 39 37 39 28 28 

7B49: 48 49 54 20 3C 53 48 49 46 54 3E 20 5C 20 54 4F 

7B55: 20 41 43 43 45 53 53 2E 29 42 41 53 49 43 28 50 



PftGE 50 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE (08) 381 8542 



7B69: 52 4F 47 52 41 4D 28 4C 4F 43 41 54 49 4F 4E 53 

7B79: 20 3R 20 53 54 41 52 54 28 3D 20 5B 58 58 58 48 

7B89: 20 2C 20 45 45 44 20 3D 20 58 58 58 58 48 28 28 

7B99: CD 9F 7B C3 CC 06 CD C9 01 21 40 3C 22 28 40 11 

7ER9: 0Q 3C 21 25 7E 01 3D 00 ED B0 21 C6 7B 35 C3 32 

7BB9: 33 40 22 34 40 RF 32 15 40 21 99 7B C9 CD E3 S3 

7BC9: B7 C8 FE 1R C2 85 7D ED 73 24 72 31 22 72 E5 21 

7ED9: 00 00 22 2B 72 D5 C5 F5 DD E5 FD E5 C3 63 72 



7D58: 13 C9 CD C9 01 21 15 40 3G 06 FD El DD El Fl CI 
7D68: Dl El ED 7B 24 72 C3 CC 06 



7DS3: F4 IF C5 01 9F 00 10 FE 3D 20 FB CI C9 42 41 53 

7D93: 49 43 20 4D 4F 4E 49 54 4F 52 20 56 45 52 25 20 

7DR3: 31 2E 32 20 20 43 4F 4D 4D 41 4E 44 20 20 4C 49 

7DB3: 53 54 20 3R ED 2D 2D 2D 2'3 53 45 4C 45 43 54 28 

7DC3: 46 55 4E 43 54 49 4F 4E 20 21 21 21 20 2D 2D 2D 

7DD3: 3D 42 20 2D 20 52 45 54 55 52 4E 20 54 4F 20 42 

7DE3: 41 53 49 43 0D 52 20 2D 20 52 45 4E 55 4D 42 45 

7DF3: 52 3D 4C 20 2D 20 4C 4F 41 44 28 42 41 53 49 43 

7E03: 20 50 52 4F 47 52 41 4D 0D 4D 20 2D 20 4D 45 52 

7E13: 47 45 20 42 41 53 49 43 20 50 52 4F 47 52 41 4D 

7E23: 8D 50 23 2D 28 50 52 4F 54 45 43 54 20 50 52 4F 

7E33: 47 52 41 4D 8D 5G 20 2D 20 4C 49 53 54 28 56 41 

7E43: 52 49 41 42 4C 45 53 20 55 53 45 44 23 49 4E 23 

7E53: 50 52 4F 47 52 41 4D 0D 53 20 2D 23 52 45 53 54 

7E63: 4F 52 45 20 56 52 4F 47 52 4 1 4D 0D 47 20 2D 23 

7E73: 47 4F 54 4F 28 48 45 58 28 4C 4F 43 41 54 43 4F 

7E83: 4E 0D 44 28 2D 20 44 45 43 2E 20 54 4F 28 43 45 

7E93: 56 2E 20 43 4F 4E 56 45 52 53 43 4F 4E QD 48 20 

7ER3: 2D 20 48 45 58 2E 28 54 4F 20 44 45 43 2E 28 43 

7EB3: 4F 4E 56 45 52 53 49 4F 4E 8D 46 20 2D 28 43 41 

7EC3: 4E 43 45 4C 28 50 52 4F 54 45 43 54 49 4F 4E 0D 

7ED3: 45 28 2D 23 45 44 49 54 28 4D 45 4D 4F 52 59 SB 

7EE3: 43 20 2D 20 43 4F 58 59 28 4D 45 4D 4F 52 59 20 

7EF3: 54 4F 



7345 C3 63 72 

73F6 C3 63 72 

7BF8 C2 63 72 

7588 C3 63 72 

752R C3 63 72 

789ft C3 63 72 

7557 C3 63 72 

76C1 C3 63 72 

73 IB C3 63 72 

7546 C3 63 72 
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L30 ' HEX MONITOR IN BASIC - FULLY DEBUGGED 1 

L10 ' AUTHOR PETER. G. HARTLEY 

L20 ■ COPYRIGHT C C'J 198© , PETER G. HARTLEY AND 'MICRO- 30" 

130 CLERR550:DEFINTft-X:DEFDBLS:DEFSTRZ:POKElB553 ( 2SS:ONElRRORGOTOS0Q 

140 CLS: PRINT" MENU 



X - EXAMINE MEMORY BLOCK 

E - EDIT MEMORY BLOCK 

P - PUNCH MEMORY BLOCK TO TAPE 

L - LOAD MEMORY BLOCK FROM TAPE 

PLEASE SELECT OPTION"; 

lSa GOSUB480 : IFZD*=*X"THENGOSUB220 ELSEIFZD*="E"THENGOSUB260 ELSEIFZB*= "P'TH 

ENGOSUE300 ELSEIFZD$="L"GOSUB340 

IBS GOTO140 

170 DATA0, L,2,3 f 4 f 5,G ? 7,8,9,A.B.C,D,E,F 

180 RESTORE: 0=0 

199 REftD2R»:IFZR*OZU* THEN U=U+1 : GOTO 130 :ELSERETURtS 

200 RESTORE: FOR.KU=0T 00 : READZUS : NEXT : IFTAPE=77THENZZS=ZZS+ZU* : KC=KC+ 1 : RETURN : ELSE 
RETURN 

210 CLS -'PRINT "STARTING ADDRESS" ;: GOSUB4S0 : INPUTZSS: GOSUB460 : RETURN 
226 G0SUB219 : CLS: PRINT "AUTOMATIC HEX LISTING OF MEMORY FROM";S;" 
TO HALT LISTING PRESS >> £ << 
TO RESTART PRESS >> ® « 

TO ABORT PRESS >ENTER< 



230 GOSUE430 : GOSUB470 : IFZD*=" © "THEHGOSUE2S0 EL5CIFZDS=CHR*C 13 )THENRETURN 

240 GOTO230 

250 ZD»=" " :GOSUB470 : IFZD$= " @*THEN230 ELSE250 

260 GOSUB210 : CLS: PRINT "MEMORY EDITING FROM ADDRESS" ;S;" 

TO END EDITING ENTER A >> @ << 

TO LEAUE LOCATION UNCHANGED HIT >> ENTER << 

TO ENTER NEW STARTING ADDRESS ENTER A >> N << 

> 
270 GOSUB380 : GOSUB410 : ZUS= " " : INPUTZV* : IFZU$-"$" THENRETURNELSEIFZl»*=" "THENS=S 
+ 1 : GOTO270 : ELSEIFZO$="N"THENGOTO260 

280 L=LENCZO* >: IFL<2 THEM 279 ELSE IF L>2 THEN ZU»=RIGHT*( ZU*,2) 

290 ZZ**ZU*:ZU*=LEFT*CZZt„ 1 ):G0SUE188 : A=U : ZU$=RIGHT*( ZZS, .1 > : GOSUB180 :A=A*1S+ 
U : POKES , A : S-S + 1 : GC T 0270 
300 CLS: INPUT "PROGRAM NAME ■ ; ZNfc : GOSUB210 : SS=S: CLS : PRINT "MEMORY DUMP TO TAPE OF 

" ; ZN*; " FROM ADDRESS" ;S" 
TO A ; : PRINT-FINISHING ADDRESS' ;: G0SUB45S : INPUTZSS: GOSUB460 
316 SF-S: CLS: PRINT "MEMORY DUMP TO TAPE OF ";ZNS;" FROM" ; SS ; "TO 
■ : SF ; : PRINT " ENTRY ADDRESS " ; : INPUTZS* : GOSUB4B0 
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320 CLS: PRINT "TRPE DUMP OF " ; ZN* ; " 

FROM ";SS;* 

TO * ; SF ; " 

";S; "ENTRY POINT 

";: INPUT "HIT >> ENTER << WHEN CRSSETTE READY TO RECORD" ; ZCS: ST=S : S=SS : PRINT*- L . B 

S,SF , ST, ZN$:CLS: PRINT "TAPE DUMP IN PROGRESS" : PRINT : TZ%=" " : KC=0: KK=0: ZN* = " ': X--FRE 

(0) 

330 TAPE=0:GQSUE380 : TAPE=77 : FORKL=0TO15: GOSUB410 :S=S+1 : IFKC=248 OR S-SF+J TH 

ENGOSUB430 : NEXT •- GOT 0330 : ELSENEXT : GOTO330 

340 CL5: INPUT" IF YOU HAUE NOT PROTECTED HIGH MEMORY, THIS WILL BE ft WRSTE OF 

EVERYONE'S TIME. HIT >> ENTER << WHEN CASSETTE READY TO PLAY " I ZZfc : Z*=" " : INPUTft- 

L > SS, SF. ST , ZNS : POKE 1S553, 255 :CLS*- PRINT "STARTING ADDRESS" ;SS. :S=SS: GOSUE380 : PRI 

NT 

350 PRINT'FINISHING ADDRESS "; SF ,: S=SF : GOSUB380 : PRINT : PRINT" SYSTEM ENTRY ADDRES 

S /" ;ST, : S=ST : GOSUB380 : PRINT : PRINT "PROGRAM . NAME " ; ZN&: ZN*=" " : ■ S=S3: KC=16 

360 INPUT*- l f ZZS: POKE 16553 ,255: L=LEN(Z2»):F0RKZ= 1TOL STEP2: IFKC=16GOSUB380 : KC- 



370 GOSUE420 : ZUS=MID1 CZZS , KZ , 1 ) : PRINTZUS; : GOSUB1B0 :DD=0: ZOS=MIDS-r ZZ$ , KZ+1 , 1 ) 

:PRINTZUS; " ";:G0SUE18B : DD=DD* 16+0: POKESX , DD: S=S+1 : KC=KC+ 1 : IFSOSF + 1 THENNEXTK 

Z:GOTO360 :ELSEGOTO440 

380 GOSUE420 : A1=INT< SD/4096 ) : SD=SD~f. Al*4096 ) : A2=INT( SD/256 ) : SD=SD- ( A2*25E ) : A3= 

INTC SD/16) : R4=SD-A3*16 

390 KL=0:U=A1:GOSUE200 :PRINTZUS ; : U=A2 : GOSUB200 : PRINTZU*; : U=A3: GOSUB200 :PRI 

NTZU4; :U=A4:GOSUE200 :PRINTZUS. : RETURN 

400 GGSUE380 :FORKL=0TO15:GOSUE410 : 3=5 + 1 : NEXT : RETURN 

410 GOSUB42Q : OU-PEEKl 5X ) : U=INTC 00/ 16 ) : UU=V,iO-0«16 : GOSUE200 : PRTNTZOS; : 0-00: GOS 

UB200 :PRINTZUS: * " ; : RETURN 

420 IFS<3276BTHENSX=S: SD=S: RETURN: ELSESX=C S-32767 )*- 1 : SD=32767-5X: RETURN 

430 IFTAPE<>77THENRETURNELSEPRINT#-1,ZZ*:ZZ»="" :KC=9: IFS=SF+1 THENGOTO440 ELSER 

ETURN 

440 PRINT: PRINT "TAPE DUMP COMPLETED - HIT >> ENTER << FOR MENU" : GOSUE480 : RUN 

450 PRINT" 

***# DECIMAL 

****H HEX 

" ; = RETURN 

460 ZH»=RIGHTS( ZSS , 1 ): L=LEN( ZSS ) : IFZHtO"H ,> THENS=0AL( ZS$ ): RETURN: ELSES=0: FORKL- 1 

T0L-1:ZU*=MID*CZS*,KL, 1):GOSUB180 : S=5* 16+0: NEXTKL: RETURN 

470 ZD»-INKEY»: RETURN 

480 2D»*INKEY*:ZD*=" 

490 ZD*=INKEY»:IFZD*="" THEN 430 ELSERETURN 

500 lFERR/2+i=4THENCLS: PRINT "OUT OF DATA ERROR 

PROBABLY CAUSED BY A TAPE-READING ERROR 

STRING DATA READ FROM CASSETTE WAS 

" ;ZZJ: PRINT "LAST BYTE ENTERED WAS';S-1;" 

HIT >> ENTER << TO RESUME WITH EYTE'iS;" FAULTY ": INPUTZQS: ZRft = "X" : 2V8 = *X" : U=0 : RE 

5UME190 

518 RESUME 130 
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***** MINI MACHINE LANGUAGE SAUE ROUTINE IN BASIC - L2/4K ***** 

20 ' AUTHOR PETER G. HARTLEY 

30 ' COPYRIGHT PETER G. HARTLEY AND 'MICRO-80" 

100 CLS: CLEAR4B0--DEFINTA-Y:DEFSTRZ: INPUT "STARTING ADDRESS 

ENDING ADDRESS 

ENTRY ADDRESS 

NAME";SS,SF,ST,ZN* 

110 CLS: INPUT "HIT >> ENTER << WHEN CASSETTE READY TO RECORD" ; ZQ*rPRINT#- 1 . 5S , SF , 

ST , 2NS : ZNS= " " : KS=0 : P 1 - 1 92 : P2=S2 

120 CLS :KC= 16 '-PRINTS' 128, "PLEASE ENTER THE LISTING IN HEX 

IF YOU MAKE A MISTAKE, DO NOT HIT ENTER, 

JUST ADD EXTRA DIGITS UNTIL THE LAST TWO 

ARE CORRECT - THESE ARE ALL THE PROGRAM 

WILL RECOGNISE. " 

130 FORS-SSTOSF 

140 IFKC=1S THEN KC=0 : POKE1641S , PI : P0KE16417 . P2: PRINTS, : P1=PEEK< 16416 ) : PZ-PEEKC 1 

6^17 ) 

150 IFK5-124 THEN KS=0: PRINTS74 , "T APE DUMP IN PROGRESS " ; :PR 

INT*-1,ZZS:ZZ»=" :PRINT@74, " "; : IFS=>S 

F PRINT#74,"T RPE DUMP IS COMPLETED VEND 

1S0 PRINT 00, " ' : :P 

RINT@0. ■- ; :INPUTZB*:L=LEN(ZB«): IFL<ZGOTO1S0 

17© ZB$=RIGHT$C ZB* , 2 > : ZZS=ZZ«+ZB« : ZB*=ZB*+ " " : P0KEI64 16, PI : P0KE164 17 , P2: PRINTZB* 

; :P1=PEEKC 16416 ):P2=PEEK( 16417 ): KC=KC+1 : KS=KS+ 1 : IFS=SFTHENKS= 124: GOTO 150ELSENEX7 

S 



***** MINI MACHINE LANGUAGE LOADER IN BASIC ***** 

10 CLEAR260:DEFINTA-X:DEFDBLS:DEFSTRZ:POKE16553 > 255: : GOSUB60 : GOTO10 

20 DAT A0 ,i,2,3,4,S,6,7 ? 8,9,A,E,C,D,E,F 

30 RESTORE: 0=0 

40 READZRS: IFZR*< >ZO* THEN U=O+UGOTO40 :ELSERETURN 

S3 RESTORE : FORKU=0T OU : READZO* : NEXT : RETURN 

60 CLS: INPUT "IF YOU HAVE NOT PROTECTED HIGH MEMORY, THIS WILL BE A WASTE OF 

EOERYONE' S TIME. HIT >> ENTER << WHEN CASSETTE READY TO PLAY " ;ZZ$:Z*=" ": INPUT* - 

1 , SS , SF , 5T , ZN*: P0KE16553 , 25S : CLS : PRINT "ST ARTING ADDRESS" ; SS , : S=SS: GOSUB100 : PRI 

NT 

70 PRINT "FINISHING ADDRESS" ; SF ,: S=SF : GOSUB 100 : PRINT : PRINT "SYSTEM ENTRY ADDRESS 

/" ; ST, : S=ST : GOSUE 1 00 : PRINT : PRINT "PROGRAM NAME " ;ZN»: ZN*=" " : :S=SS: KC=16 
86 INPUT* -l.ZZS: POKE 1S553, 255 : L=LENCZZ* V. F0RKZ-1T0L STEP2: IFKC=16GOSUB100 :KC=0 

90 GOSUB 130 :ZUS=MID*(ZZS.KZ,1) : PRINTZU»; : GOSUB 30 : DD=U: ZO*=MID*C ZZ* ,KZ+1 , 1) : 

PRINTZO*; " "; : GOSUB30 : DD=DD*16+U:P0KESX.DD:S=S+ 1:KC=KC + 1 : IFS< >SF+lTHENNEXTKZ: 

G0T088 :ELSEGOTO140 

100 GOSUB130 : Al=INT(SD/4096 ) : SD=SD-( Al*4096 ) : A2=INT( SD^25G ) : SD=SD-(. A2*256 ) : A3= 

1NTCSD/1G):A4=5D-A3*16 

110 KL=0:U=A1: GOSUB50 : PRINT ZU»; : U=A2 : GOSUB50 : PRINTZOS ; : U=A3 : GOSUB50 :PRI 

NTZUS ; : U=A4 : GOSUB50 : PRINTZU* , : RETURN 

1Z0 STOP: GOSUB 100 : FORKL=0TO 15 : GOSUB :S=S+ 1: NEXT: RETURN 

130 IF5<32768THENSX=S:SD=5: RETURN : ELSESX=t S-32767 )*- 1 : SD=32767-SX: RETURN 

140 PRINT -.PRINT "TAPE DUMP COMPLETED. ": STOP 

150 ZD*= I NKEYS: RETURN 
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APPLICATION FORM 

FOR PUBLICATION OF A PROGRAM 

To: MICRO-80 

Please consider the enclosed program for publication: 

Tick 

IN MICRO-80 »■— ' one 



ON CASSETTE OR DISK ONLY 

NAME 

ADDRESS 

POST CODE 



□ 
□ ° nly 



CHECK LIST 

Make sure you have PRINTED the following information clearly on your 
cassette or disk: 

YOUR NAME AND ADDRESS 

PROGRAM NAME 

MEMORY SIZE 

LEVEL 1, LEVEL 2, BASIC 2.2, SYSTEM lor 2, EDTASM 

HOW TO START PROGRAM (Eg. Enter/32000) 

Make sure you include the following information with your cassette or disk: 

EXPLANATION OF WHAT THE PROGRAM DOES AND HOW TO USE IT 

DESCRIPTION OF HOW TO CHANGE IT FOR DIFFERENT MEMORY SIZES 
AND DIFFERENT LEVELS OF BASIC 

THE SIZE OF MEMORY REQUIRED AND TYPE OF SYSTEM NEEDED TO RUN IT 
(Eg. LEVEL 1 4K, 32K WITH 2 DISK DRIVES ETC J 

START, END AND ENTRY POINT FOR MACHINE LANGUAGE PROGRAMS 

ANY SIMPLE CHANGES WHICH CAN BE MADE TO MAKE IT MORE FLEXIBLE 

OR USEFUL 

DON'T FORGET A STAMPED SELF -ADDRESSED ENVELOPE IF YOU WANT YOUR 
CASSETTE OR DISK RETURNED. 



